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belg: 
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ED I tor: I AAI_ 



Sinclair glda typogcafiach wat 
verzacqen. Vandaar dat de teksl 
met sen margcietwiel-pcicitt 
afgedrukC. Dat leeat ieCs i 



k.ampioenschappen alles netjes ti volg^r 

Pet€ra ult Almelo preciea goed get imed. 

Er is weinig ZX-nieuws te melderii dezE 
Iceer. De +2 blijltt in Bngeland pcima tc 
lopeti; maar de Benelux loopt zq te zier 



De lijat met de gebruifceragroepen t 
aardig te gcoelen. Sinclair biijkt 



axai° waatbij ni j aan de hand 



mogeli jkheden van de AHX-muia, dat ue 

een progtamtneerwedatci jd te otganiaeten. 
Vecdecop in diC blad lees je allea ovet 
de prijzen die ecaan vecbonden zijn. 
Begin alvaat te uatettanden : «ie zou et 
niet graag een kleurenroonitoc hebben ? 

De kleine In/Outjea blijken ook aan ts 
slaan. Zo te zien is de Sinclaic-raackt 
volop in beuBging. Wie zijn/haatr teksl 
niat Cecugvindt , hecinneren we aan dt 
spelcegela : geen coinmecciSle adverten- 
tiea en geen gecopieerd apul . 

Veel leeapleziec 1 




lllllllll new 



DOS 4- O 



system (DOS) ontwikkeld dat 
dat van Opua at BetaDisk. 



focmattecen : van 35 tot 80 tracks, 
enkelzijdig o£ dubbelzi jdig , enkele oE 



Spec 



oyat* 



mita een paar kleine inqceepjes gedaan 
worden. Door middel van een simpele POKE 

enorm handig om bijvootbeeld alle 
microdciwe-programma 'a op scnijf te 
zetten, zonder de langdurige omweg via 



LOAD' tieeft alle mogeli jkheden 



bepaalde belangcijke file twee keec op ~ 

laadt een programma of een code-blok van 

een adres dat in liet commando «ordt 
megegeven. In de vorm : 
RUN*- naam"CODE, adres. 



:omiiiando. 



.IST*a geeft de 



LLIST* doet hetzelEde ala LIST*, maar nu 
uordt de infocmatie naar ZX-pcinter of 

ERASE* wist een bepaalde file van de 



Illlllllll 



new 



ilEde dr; 



COPY- lag 
ofwel naa 
eei\ andec 

LEN* gee£C de vrije geheuqer 



foi 



;ondBr 



;hi j£ op 40 traclcai SSDD. Met 
ling van de letteca a o£ d vooc 
of dubbelzijdig en enKele o£ 
I schri jfdichtheidi plus een qetal 
let aantal sporen ( 35 ,40 ,45 , SO] 
zel£ bepalen doe de schijf woirdc 
itteecd. 



flITR- kan eeti bepaalde file beveilu 
Cegelijk onzichtbaac in de catalogus. 



r dezelfde drive o£ naar 






de mogeli jkheden betceft. 

St.-Katelijneveat 16-la, 2000 Antwecpen 

Tel. 03/231 01 03 

Pcija ; 999Q fc/ca. f.549.- 



OPUS hee£t beHend gemaaltt dat de Opus 
Discovery NIET meet; gepcoduceecd zal 
Kocden. De recente pcijadaling (£1.495) 

zeec populair diac-dt ivesyateem uoor de 



De 


ze bekendmakinq van OPUS heeft dirac 




de veckLoopspcija doen stijgen tot £1.595 


Reden liiervan ia dat de Eicma OPUS zelf 


geen voorraad raeer hee£t (en krijgt) en 


dat kLleine pactijen hier en daar in Bu- 


capa moeten worden opgefcocht. Dit uitec- 


aacd tegen een hogere pcija. 


Oorzaak van deze pcodukcieatop ia niet 


geheel duidelijk. OPUS zelf zegt dat na 


annulecing van een ocdec van 6000 atuka. 


beaterod voor Italic, men met een enorm 




om de Discoveries uit te veckopen. 


Andece raedewerkeca van OPUS echCer meld- 


den, dat de mackf vooc de Diaoovecy vet- 


zadigd raakte. ("een iedec die gelnte- 


teaaeerd ia heeft -m inmiddela all|-). 


Ook ia bekend dat OPUS de Discovery 


noolt erg aerieus hee£t genomen: De Dio- 


covecy vooc de Spectrum deden ze, naaat 


hun beataande activiteiten, ala "grapje" 


erbij. 


Acnteraf moge duidelijk zijn dat het on- 


mogelijk ia om voor £1.495 een compleet 


diBk-aysteem, iticluaief drive, printer- 


pooct en voeding te producecen. (Tec 


vergelijking: een diskdirive met intecEa- 


ce voor de QL koat nog altijd £1.895.) 


□PUS-bezittera hoeven , Hoe dan ook, niet 


ongeruat Ce wordsn. Er zijn inmiddels Ln 


Nederland en Belgie, honderden gebrui- 


fcers. En deze kunnen altijd een beroep 






zal een ieder graag met raad en daad 


bijstaan. Tach is het jammer dat een 


diaUdcivesysteem voor de ZX Spectrum (in 


't begin £1.995) binnenkort niet meer 




(«...! 




ZX SPECTRUM (i-) SOFTWARE BOEK 






Aiiteuca:P.Pauwela, H.de Chaffoy 






Dit 192 pagina'a dikke program- 












bevat vele nuttige prograroraa'a, 






zoals: A4 COPH , COPY RS232, VAL- 






raaker, SCHEENCOMPRESSIE en 






-BXPftNSIE, FIND en REPLACE enz. 






Verschijnt medio £ebruari 1987. 






ISBN 90-6383-027-9 £1.34,90 






Verkrijgbaar in de goede boek- 






handel, Sinclair Speciaalzaken 






en Cotnputercollectief, 






TERMINAL SOFTWARE PUBLICATIES 











van lezere. di< 
ook andere Sinclair-fans Ce Jtunnen 
intereaseren . Een ceden daacvooc is. dat 
we uillen pcoberen on via dit 
tijdachrifc een dialoog op gang te 

Een andere ceden is, daC wij niet op elk 
gebied deskundig kunnen zijn en daarom 
bepaalde vragen niet zelf kunnen 
beancwoorden . Hij beschikken nil eenmaal 

dat voor de Spectrum bedoeld ia of ec op 

rubciefc worden ook bcieven gepubliceerd , 



1. T. Wit 


am wil weten of de software 


voor Vidi 


el igeschikt vooc de Spectrum 


4BK) oolt 


p de 128K te gebcuiken is en 




232-pooct dan ook door die 


software 


n werking wocdt gesteld. 



Baaicode, de pcinter-aof tware spoor] 
verdwenen ia. Diverse load-volgoi 
werden geprobeerd. met steeda hetzeJ 



corobinatie Masterfile + MFPi 

Interface I aan de ptaat kj 
handleiding bij de MFPrint v. 



langepast kan worden ' 






I RS23; 



. Kan dit 



1] 



rungen- van Schuessler (uitg. 
>oker). Weet iemand of die 



5, De Spectrum 128 K van I. Caaula uit 
Deventer heeft fcekwent reset-neigingen: 
op de meeat onvooiapelbace tijdaCippsn, 
maar wel altijd wanneer een pcogcamm; 
loopt. Wis kent oorzaak en remedie 7 



e. VROUWEH EH 



randapparai 
al lang acl 



■n hebben om met deze appacatnur c 
innen gaan. Men denkt dat ze ailee 
gegevens mag invoecen (datatypiats 
je ooit al van een data-typi£ 



lllilllll input 



en dan alleen als 
"opleiding" geliad heeft van een i 
BAAS kent alleen het wachtwoocd 
hij ziek is mag ze er niet aankon 

Voor zover bekend i 



opgebouud als dal 



duiken. Dat 



op dezelfde mani 
enkele belemmering vc 






rug, 



2- een nog dieper gewortelde indoctrina- 
tie, dat ze toch maar fouten maakt en 
aelfa een programroa naar de blikaer 
helpt; 

gesproken; 
1- conaecvatiame [typmachines zijn voor 



flan de laatote twee punten i 
middelbare school met eei 

hec ding loopt te ajouuen, 



?". Oe 

rijgt die 



boudt, heeft ze volgens de reat 
uereld minstens een intelligent 



3- Prografnraeer ieta leuka in flflSIC. En 
doe bet alleen (dus geen potte- 
kijkera). 

4- Sluit aan bij een gebruikarsgroep. 



gevcaagde hulp krijgt. 






(leea verder op biz. 42) 





DE F-RUZEM 



deze wedatrijd zijn de 



le prijs 
3e pcijs 
5e pcija 


Kleuremnon 
Videoface 

KOmx Joys 


6e t/m 1 
ZX Spect 


e pcijs: 
UD1 Software 





275, 




149, 




39, 


fl 


39, 



twv. £1, 34,91 

le pcija en 6e t/m lOe pcijs beachikbaar 
geateld door de SINCLAIR GIDS. Ze t/m 5e 
p[ij3 beschikbaac gesteld dooc OATASKIP, 



mill 



MET DE MLJI@ 



pcogcammeecuedstci jd condom de AMX-Muis. 

Waacom deze progcaroraeeruedatci jd ? 

De AMX-tnuis is een nieuw medium vootr de 
Spectrum, dat geheel nieuwe mogelijkheden 
aan Uw Spectrum geeft. Omdat er in Eeite 
ueinig infocmatie en pcogcamma's speciaal 
vooc de AMX-Muia «orden gepubliceecd is 
deze uedaCrijd geocgciniseecd ■ 
De pcogcammeecwedotci jd loopt van 1 
Eebruari t/m 30 april 19S7. De uitalag 

de Sinclair Gids no. 7. 



Kl_ELJREtMMOM I TOR 



F*F*OGR«M«-IEEF<WEDSTRUD 



ingezonden programma dient eigen 
; te zijti. De deelnemec vrijwaact 
iinclaic Gids / Uitgevecij Terminal 



van deed 


n 


op 


de 


inge 


onden 


prog 


am- 






















van DATASK 




Jitgev 




Terminal 




ftuac 


Publ 




B zijn 


































X 


mu 


s 


n de 


!t 3pe 


ctcurr. 




. De inie 


nri 




=.n 


moete 


uit 




■^r 


april 1987 




1 


de cedakti 






Sinclair 






hi 


















Big 


































lieden 




cassette 




d 


sk 


(OPUS). De 




sin 


Tasword- 


i 








e of 






getypt □ 


















best 






T.Vei 














en als exti 










gas , die de g 


ebruikeca 


vciendel 


i 


he 


d van de 


progi 






















De ocigi 






i.i|- 


en k 


jalite 


it zu 




van dooc 


:l 






de be 


















:jlicee 










dfl 




mer 7 




ndien 




len in c 


















le 


■ 1 












3laq 13 


J« 




■oi 


eapon 


entie 


mogel 


3k 




1 jUbtM. BEI_Ar4(5RUK 1 


Bela 


gcijk om te ueten is dat met ingang 


stci 


d gaat lopen. Deze wedatcijd zal be- 


spec 


ing hebben op toepassing van de 
ruin in het ondecwijs ala leechulp- 

d kunnen dua met hun inzending tege- 


lijK 


rtijd deelnemen aan de nieuwe «ed- 
d, uitecaard moet het dan een educa- 


tief 


prograrama zijn. 



sne:i_ em f-recies 




REKENEN 




MET- DE ZX SI 





; CftLCULATOR 



lermederii omdat 



Fl 


5-32 
3 PRINT 3:" 


WKEURIGHBID VAN '• 
■■:2-2-2'2*2-32,2 


,4 


4 PRINT 4:" 
•*5-1024 

5 PRINT 5:" 


■>;5*5«5*5-5-3125 




6 PRINT 6." 


■■;5*5'6'5'6-7776 


7, 
8, 
9, 


7 PRINT 7!" 
7*. 5-16807 

8'*5-32768' 

9 PRINT 9;' 
9"5-59049 


'■!7'7*7-7*7-16BQ 
'■;B*8'B*8'S-3276 
■■;9*9"9*9*9-5904 


3 
4 
5 
6 

7 

e 









5.9604645E-7 



1.90734B6E-6 

-1.9073486B-6 

-7.6293945E-6 





llllllllll zxBl 



.ijr, cweo oplo; 



1 . Ue ALGEHENE 



■ IF ABS [X-AXl. 



gebcuik A*A*A'A'A ipv. A»*5. 

Het blijlct echbec ook dat "5 veel meer 
tijd koBt dan 5-ma3l vecmenigvuldigen 
zoals timing van de beide progratnma's in 
fig, 2 laat zien. De tueede Qploasing is 
dus duidelijK pcefecent. 
De oplossing die ik van het HCC-pcobleero 

gcaoinieren enocme tijdwinsC kan opleve- 
ren . Terug naac ona pcobleem. Dit kan 
met een BASIC-pcagcamma «ocden opgelost. 

De opgave was: 

vindt alls geCallen van 5 cijEeca abcde 

tuaaen 9,999 en 100.000, waacvoor geldt 







10 FOR X-1 


D 300 


20 LET Y=X' 




30 NEKT X 




40 STOP 




50 FOR X=l 




60 LET i=X* 




70 NEXT X 




RESULTAAT: 




Tijd met •* 


35 Sec 


Tijd met * 


5 Sec 



ZX81-taal. Daa 



ling 



', zie regel 40. Na 15 uuc en 48 minu- 
.en in FAST-mode (I) worden de dcie 
loede antwoorden geprint. Dit progcamma 
Loat zouoel tijd, omdat alle 90.000 



Fig. 3 


HCC PHOBLEEM BSe ""5" 




RECHTTOE RECHTAAN-PHOGR. 


10 F 


DR N=l£4 TO 99999 


20 L 


=T NS=STR5 N 


30 L 


:t s=val ns(i)**5+val (js[2 


l"5tV 


AL NS[3)*«54.VA[, NS14J**5^-V 


40*1 


F ABS [S-N)<,1 THEN PRINT N 


50 N 


EXT N 



oplossing met ' amge^ceetde k 
vocm alle wezenlijH ve^achi] 
binaties van 5 cij£eC3 0...9 
zoEk at <3e som V van de 5-de 
die cijfeta gelij 
de 5-de machten v 
Dan behoeven slechta 2002 : 
worden geteat. Sovendien uocde -zoals 
ceeda beaprolten- ueel tijd beapaacd dooc 
\gvuldigeni.p,v. "' te 



:ijfe. 



I 534 



I goede oplo! 



jken 





SNELLE OPLOSSIHG 








20 FOR B-ft TO 9 




30 POH C=B TO 9 




40 FOR D-C TO 9 




50 FOR E-D TO 9 




60 LET V=A-'fl*A*A'A+B'B'S'B'fltC 








70 IP V<1E-1 OR V>99999 THEN GO 








aO LET VS=STRS V 




90 LET X-0 




100 FOR N=l TO 5 




110 LET W^VAL VS(H) 




120 LET >:=X+W'W"W*WW 




130 NEXT N 




140 IF X=V THEN PRINT V 




150 NEXT E 
















190 NEXT A 



labei wocdt gevocrad in de Kegels 10 
JO wan fig. 5. 

)aar VtO) big de 2XB1 niet beataat 
len alle grootheden 1 hoger worden ^ 
lien: A=l TO 10 i.p.v. TO 9., enz. 
regela 30 en 160 lorgen ecvooc dat i 
:och op z'n poatjea tacechtkomt . 



Illlllllll 



zxBl 





Fig 5. HCC PROBLEEM 336 " • • 5 " 




OPLOSSINGE MET TABEL 




10 DIM V(10) 








30 LET W-N-1 




40 LET V(N)=W-H'W-WH 








60 FOR A=l TO 10 




70 FOR B=A TO 10 












100 FOR E-D TO 10 




no LET V=V(A)tV(B)i-V(C)t-V(D) + V 




(E) 




120 IF V<1E4 OR V>99999 THEN GO 




TO 200 




130 LET V5=STH5 V 




140 LET X-0 








ISO LET W=VAL VS(N)+1 




170 LET X-X+V(W) 




180 NEXT N 
























240 NEXT A 



PROBLEEM VAN DE C 



1986, 



Als tueede ondecuerp nog een cijfecpuz- 
zle. Dit keec behandel ik een Qplosaing 
in BASIC en een r.sei veel snellece 
HACHINECODE routine. In beide program- 
■ ij andece 



luidde: 

Schcijf de getallen 2,3,., 



R.83 



getallen. De qepubl iceerde oploasiny 

zit ook in tnijn progcamraa 'a: 

(het reaultaat R) een van de cijfeca 2 
t/m 9 is, most de N(QemeF) uit 4 cijfera 
beataan en de Tlellec) uit 5 cijfera. 



Pllp 


r 5 ci 




ca maak 




Met 


die waarde 


pqin 






:ener. « 




teeds T=R*N en 


rdor 




nt 






1fe 


a 1 t/ro 9 






r 








. ZonieC dan 












N d 






jelijk 
















of 






Ife 








.k ande 












.kel, z 








ing 


van de 


pc 


ogcamma 


a 


zal 


blijken. 






ZKai 



tJal, 



mogelijk la dan het gepubl IceecJe. 



Hit ■ 



lal . 



logd. 



el ; 






- vetrvolgeria «ocdt dl« T van 5 cljEeca 
behandeld ala carder de N an ala iij ■iip 
beliandel. ing 5-inaal ovecleeEt -du3 Kondec 
naar cegel 40 te iijn tarugyeatuurd- 
liebben we een oplosaing gevonderii die 
upcdt LiiLgepcinC. 

- da waarde van R wardt vechoegd en we 
beijinnen opnleuu; rjit gaat dooc totdac 
R=10, 



Pig. 6 


Hcc b>m)Bi,F>:M aa& "grc 






OPLOS.SINli «liT BASIC e 


ROG 


10 LE' 


R'Z 




20 LEI 


DS-"5133341??5I32134 




;i<133ia53123-l" 




30 LET NS=D$(4'R~7 ro 4'R-4 


) 










NS = STIt5 {VflL N$H) 










70 IF 


N5(B)="0" THEN UOTO 4 




SO IF 


XS(VAL W5(n)) = " ■■ THb. 




OTO 40 






90 LET XS(VAI, NS(M))="" 




100 NB 








■PS-STM5 (R-VAL MS) 




120 FO 


H=l TO 5 






T5[M)="0" THEN GOTO 4 






XS(VftL TS(M))=" " THfc 




150 LB 


XS(VAL TS{M>)="" 




160 NB 






lao LE 


NT T5;" / ":NSi" = " 


'* 


190 IP 


R{10 THEN GOTO 30 




13458 / 


6729 = 2 




17469 / 


5823 = 3 




15768 / 


3942 = 4 




13485 / 


2597 = 5 




17658 / 
15758 / 


2394 = 7 




25495 / 


3187 = 8 




57429 / 


6381 = 9 





llllllllll zxBl 



OinJ.il. Lit Jat Locll wel «eel tijd vond 
joor dit iicoDlseni heb Ik ook een MACHI- 
WCCOUB-pcogrdmma gemadkt. Oat geeCb me 
du gelegenheid enkale f undamenCele cou- 

voockoraen. Vooca£ hec> cesultaat: het 



- DATS is het equivalent van D$ nit 
ce.jel 20 van £ig. 6; de plaata in RAH ia 

oro daar de uaarden van n[=R-l) uit aE te 
laiden. 

- de START is op adcea SOU met RAND USR 
20497 en na initiatie volgt het SETten 

08! da eersCe MlNinuH VALVE die daac bij 
nooFt ia 1234. 

- de voQcbereLding voor het vecraenigvul- 
■n^en gebeurt door de 4 digits (cijfeca) 
van de noemec 14 uit het [HL]-gebled ovet: 
te bcengen naac 't teller-gebied T-STORE 

volgens de l-ste [-HI) aiG van T te 



beucL dU'ir N = DES-maai decimaal (l}cn) met 
carry op te tellen ( ftDC | bij wat iich In 
T-STOrtE bevindt; de inatcuctie DAA zocgt 
etr voar dat dit indecdaad DCH gebeurt. 
ocden de 5 + 4 digit 



N gel 



.tin( 



3IG-T0-aiTS die digits in bi 

al3 die 9 digits de BITS-STORE ED= 0000 

oaol llll 1111 hebben gemaakt zijn de 

bij de waarde van R behorende waairden 

van T en 14 gevondeni die aan de opgave 

voldoen. 

T N fl-TABLE over, welke van rechCs onder 
naar links regel voor regel wordt gevuld 
met van linka naar rechts de teller, de 
noemec en het uesultaat; voor de leea- 
baarheld van die tabel zijn de T- N- en 
R-ST0HE3 steeda door een NOP-byte ge- 
acheiden: adreaaen 4046 en 4049. 
- 2olang geen goed antwoocd is gevonden 

progcamtna, omdaC de 8 antuoocden toch 
ca2end3nel bekend zijni ia wel een goed 
antwDord gevonden dan wocdt met de naaat 
lagece R via NXT-R het zoeken vooctgezet. 



Hoe, dat aal ik in een van de volgende 
artikelen in deje serie behandelen. 



Illllllll 



HCC PSOBLEI 



zxfll 



i) I 



DiG(r 

T(ELLER) 

N(OEnER) SI 

R(ESULTS) 31 

DATA 

T H R-TABLE 



ADRE3/MHEMOf)ICS Z80-INSTRUC Tl E 
INITIATIE 

5011 — CDE702 CALL 02B7 

5014— 21DF50 LD HL,50DF 

5017 — 224140 LD (4041), HI 

SOIA— 211050 LD HL,5010 

SET B + TRFR N TO T + CLEAR DK 



50ZA-- 
502B-- 
302C— 



502E — ED5B4440 


LD 


DE,(4044) 


5032 — 214540 






5035~7A 






5036~aS 




A,(HL) 


5037—27 










1HL),A 








5a3ft— 7B 


LD 


A,E 


503B— BE 


ADC 


A,(HL) 


503C— 27 


DAA 




503D— 77 




(HL),A 


503E— 3002 




NC,5a42 








5041—34 




(HL) 




DJtJZ 




TEST DIG T AtlD 


N t INCREMBBT N 


5044— ED534740 


LD 


(4047), DE 


5048— 2E42 


LD 


L,42 


5Q4A— llOOOO 






504D— OE06 




C,06 


504P — CDe550 


CALL 


5065 


5052 — OD 


DEC 


C 



■*2 BYTES N 



JIG-TO-BITS 



■■■■■II 

S053 — 20FA 


III 


nil 


illlilll 










5035— 2101FF 






LH=000O 000 








ED=8ITS TEN 








HETRIEVE B 


S05C — 280P 








505E — ai48'50 




HL,4043 


3./4.DIG-N 


5061— E5 








5063—3601 




A, 01 




5064—86 




A.IHL) 




5065—27 


DAA 






5066—77 




[HL),A 


+ 1 DCM 


5067— 2D 








5068 — 3BFa 


JR 


C,5062 


INC 1./2.DI 



zxfll 



TRftMSFBR R N T 


TO T 


N R-TAai,E 




506D— 214A40 


LD 


HL,404A 


B-STQRE 


5070 — ED5B4140 






PTR-TABLE 


5074—04 






HAKE B=R 








STORE B 


5O7e--OlO8O0 




BCOOOB 




5079— EDBS 


LOOR 




THPK(40'1A 


507B— ED534i40 


LD 


(4041), DE 




507P— El 


POP 


HL 




5080— 2D 


DEC 


1. ) 




5081—20 


DEC 


L )' 




5082—2099 


JR 


NZ.501D 




5084— C9 


RET 




TO BASIC 


CONVURT DIGITS 


INTO BITS 




5085 — 23 


INC 


HI. 




50S6— 7E 




AMHL) 




5037 — CD3F50 




508F 




508A— 7E 




A,(Ht,) 




50BB — IF 




) 








1 




50ea — IF 




1 




S08E— IF 


BRA 


] 


RIGHT 


508F— E60F 




OF 




5091 — 47 


LD 


B.A 




5092 — AF 








5093—83 








5094— ce 








5095—37 








5096—17 






A^2.*[B-1 


5097— lOFD 




5096 




5099—3001 




NCSOSC 




509B — IC 








509C— 82 




A,D ] 




509D— 57 


LD 


D-A ) 





50A0-- 
50Aa — 
50B0-- 



34 5800 6729 0002 
74 6900 5B23 0003 
57 6800 3942 0004 



1800 2943 0006 
.67 5800 2394 0007 
50DO—0254 9600 3137 0008 
50D8— 0574 2900 6381 0009 




I SHrie: peek en pake 



1 "di:coil" 



leec de vcaag kat 



33675 en 2307^ : UDG 

PEBKen van deze systeemvarlabela , \evei:C 

van liet eerste zelt gedef inieerde 
kaciiltter, betec bekend als : U5R "a". Sc 



: 23675,0 oE POKE 33676,0. 



Alfl we meet 
dan 21 UDS's nadig hebben; kunnen we et 

tegeUjk kunnen gebruiken. Elke set koat 
21*6 = 168 bytes, dua moeten we RAMTOP 

van welke ycoep He wiUen gebmiken, 

P0KE9 in deZB aysteemvaciabele. 

23677 en 23573 : COORDS 

Deze ayateemvaclabalen bevatten reap, de 
x-coScdinaat en de y-co&rdinaat van de 
laatat geplotte pixel. Het CLS-commando 
zet ze allebei op nul. Je kan elke gel- 
dige K oE y-uaarde fiiecin POKEn. Daar- 
door wocdt ec op tiat acheno nieta ijewij- 
zigd. maar het volgende DRAM-conmando 

is handlgi als je van een ptint wil vnc- 



23688 en 23689 : SPOSN (screen 

Deze bytea bevatten infocmatie ovec ile 
kolom en de cegel van de tiuidiye PrtlNT- 
poaitie. De variabele op 23688 begint 
Oij 33 en Eelt aE naar 1: de vaciabele 
op 23689 telt a£ van 24 naac 3. Je kan 
ze POKEti am de PHINT-poaitie een aantal 
karafcteca naar llnka/rechts o£ een aan- 

Naar links kan ook met PRINT CHB? 8; en 

met PRINT CHRS 11t maar een Eout in de 



1 CLS-( 



of . 






lando. POKgr 
eEfekt na een PRINT of een CLS . maar het 

23S93,S6 ia hetzelEde als PAPER 7 : INK 

0: BRIGHT : PLASH Q maac gebruikt 11 

bytea mindeir en werkt aneller [maar *ftn 
commando in plaata van vier), 

23694 : «ASK_P 

Deze byl:e uordt tjeraadpleegd indien de 

tea-otateraent. INK 8 zal Bits 0, 1 en 2 
setten. PAPER 8 set bits 3, 4 en 5. 
BRIGHT 3 aet bit 5, PLASH B set bit 7 
van deze systeemvarlabele. Vlanneer er 

dat wordt uitgevoecd I BO ja, dan neemt 
hij natukiclijk die) om de attributen te 
bepalen. Oat " ' " 



eEfekte 



I (bv. INK 4 = 



' lloT." Bij een 



(bv. INK 5) geAHD wotrdei 
sultaat is niet S, zoali 
HIM 101 AMD BIN 010 - 

2373Q en 23731 : RflHTOP 



Op deze plek staat Het hoogate adces 
Maar Basic nog toegang heeEC (de UDG'a 
iiitgeaondecd). Je kan dat op elke wille- 

zijn : maximum 65535, minimum ca. 24000, 
tenzij je volledig in machineoode uerfct . 

RETURN-adcesaen van GOSUBS, ook alle 
channel- en miccodr i ve-infocmat ie. Alles 
boven dit adces (niet 23730, maar het 
adres dat op deze 2 bytea staat !] is 
veilig voor NEW en CLEAR. Een meer voor 
de hand liggende manier om de RAMTOP op 



Ml=lCM I ME 



raicrofot 



-lijn 



log. zodat je de vQedings-stekkei: ec pas 
in nadaC de Music Hachine 

^n (de audio uitgang is CINCH} 
rqeleverde miccofoon en de pret 



ID-comma ndo heb iK de I 
Iding dooc te bladecen. 
zo-n 38 K uorden ingeladon. Na : 




0[i de cassette scaan al acht geluiden. 
die met het programma mee uocdan ingela- 
den. Je kunt dus al dlrekt aan de alag. 

brouwd ben. is de piano. Dus dcuk ik op 
de pian"0". Op het schecm vecachijnt een 
octaaf van een piaiioklavier. Op elite 

ermee oveceenfcomt. Het is duidelijJt uooc 
de Schte Spectrum toetaenborden bedoeld 
(de rubbecen, de *, de 12B en de +2) : 
de lay out van Saga 1 ia andera. zodat 



llllllllll bEsb 

alleen onkeluoudige ncCen. Speelt wel 
vlot. De ceapons op da CoeCaen is goed. 

Volgende atap ia. het geluid "belti jken" . 
□at kan middela de "sAmple editoc". Die 

piakken. koctom je kunt opgenomen goluid 
kompleet anders doen klinken. Wanneec je 

yeliild) dan kun je er echt 1 lettec, of 
1 ondec- deel van een klinker uitviaaen. 
en die gsDcuiken. Mooi. Je krijgt ook 

over de lengte van het sample daC je aan 





Wlff^- 


^-''■■- --■ — ' 


Na een paar "beweckingen- klinkt tiet 
geluid natuuclijk abaoluut onheckenbaac. 



namelijk het gelkiid 
horen, Koala je het op dat moment hebt 

geluiden inkoct en je vetlaat de editoc. 

je had gesteld, onherroepeli jk kuijt. 

dan "Drums". Een set van acht drums, die 
elfc **n van de raeegelevecde geluiden 
spelen. Ook hLec dezelfde opmetking over 














on. sen hoocbaar effekc He ptoOueecen. 
Daa "dElete", cuec geluiden wiaaen, en 
terug naar "ecHo". De uettraging is in- 
aCelbaar. Het pcogramma is intelligent : 
je kunt geen geluid ovecsclici jven door 
de echotijd te lang te maken. 

Het plezierigate vond itt het sanpleo 
zelf. Ob ineegelevecde miccoEoon is niet 
bepaald de luxe; maar goed genoeg voor 
het experiment, De optie "sampleR" weckc 



of met de 



!iden tnu ja...)- 



I! P L a 'J II Ij^^^Dl ll !-•' q P If 




'.-.^ '-=.- '-=4. '-i, '-1^ 










^"^ ■=--•- ^ 


n «.,=,.,...,= „ ,1 M.n..,. 







Het gemakkeli jke is. dat je nil 



lijk bij het dB-punt te laten komer 
al3 je sampelt : dan is de aignaal/ruia- 
vethouding het beate. Ruia wocdt iiieege- 






ken Ijnelodie en begeleiding) , in s 
in £a. Eerst bepaal je het tempo i 



m dat 

: nij 

Daar let het pcogcamma lelf op : pcol 

wordt de voorlaatate weggehaald 
zodra je de decde schcijft. 



iiiiimii bEBt 

uechogen, druk je "b" ("shacp"), ga je 

moet wocden : dtjk op de "f" ("flat") en 
SPACE. Het programma vet:betei;t touten : 

woE-dt er een ai (B) gezet. Slim 1 





ll.....r,^ =.i,.:,-|1 


isc: — 

6 S'JBRC — 








IfEi..- 1 ll ' ' ' 


Ihir'^'-'Nl ![...,.. II 







uolgnutnmer. Om het 'opus" satnen te stel- 
len. hoeC je enkel via de "tuNe editor" 
een ceeka van die namen o£ volgnumraecs 
in Ce geven. Hetzelfde doe je voor de 
ritmeaectie : ook de dtruma kan je maat 
per maat achriji/en. en later aamenvoegen 
tot een volledige begeleiding, Druk je 
daarna op de "P"( dan hoor je het hele 
stuk, Dfwel de muzlek ofwel de drums. 



Je 



ituurli. 



eluid op band 



weep tegen een lege glazen flea). Door 
je nog een bandbreedte van 9:5 kHz over, 

(lees verdec op biz 451 




leaecs weciJeQ ingezonden, De auteuF[a) 
Iran ellc gepubliceerd programme EulLen 

progtamma, ontvangC de iniendac oen 
boekenbon van fl.15, fl.as of tl.AO. We 
prabecen zoveel mageUjk pcaricamma' s tc 
publicecen. Kwaliteit apeelt uicecaarr] 
de belangcijkate col. 





■HOE 


F-RCIC3R:«Mh-t(^ | 


ir 


^IZEMDEN 



^bben om alls protjcamma 
:uucd krijgen, ook nog -. 



:idge of Opus dit 



' al3 



wLal 



en duideliik te houden. Denk ecaarii dat 
het programroa allaen vnac uzelC dooc- 

niet om inatciictiea te geven in verband 
met SAVE en LOAD-volgocde, indien het 
pcogramma tiit een aantal CfoderdelGo 
beaCaat, Wat UDG'a en blok-^aphice 
betreft : onze printers vectairSo.. ^ie 

127 en 155. Gebruik die in de liacl'ng. 
Dat is niet zo mooi, maar wel dui'Jelijk. 

Het is prettig voor ona , dat oak de bij- 
behocende tekst ('11 tekens breed getypt] 
op dezelfde dragee staat- Taauord is 
ondarhand wel ?.a vecapceid, dat iedeceen 
sr een tieeft of kan lenen. Andere 

dat we niet de hele Cekat zelf inoeten 



lembler-lii 






llllllllll 






dat er een leosbare afdcuk vai 
kan uorden. Anders krijgen wij 



a lie 



g*Sn boekwerken 

j begrijpen dat somni 

.u ecnmaal niet korter 

een goniale ttuuk 

etje mag. Maar op de ZXBl n. 

■ ■ "" " cLai 



•nden. Wij 



1 da I 



van de bedoeling van een F 



Hist 



namelljk 



El— KE F-F^OGF^AMMA* S 



Wij kunnen onmogelijk zelE controleren 

eeri.ijkheid vertcouuen. Bedenk evenwel 
dat "aw" programma wocdt gezien door 
zeer velen, die ook nag wel andece tijd- 
achriEten leaen- En er is altijd wel 
iemand, die ook het tiidachrift heeft 
gelezen waarln "uw" progtramiaa stond. Al 

Vlees cerlijk. Gebruik je een routine die 
niet van jezelf ia, vecraeld dat et dan 
bij. Wij komen het hoe dan ook te ueten 
en we beloven dat we de "dadec" met naam 

deel, en terecht. Niet doen , dU3, 



Hill specbrum 



SCHAATSeiM 



m: resp. 500, SOt 



HOOFDMENU. 



Illlllllll llisb 






iOOO: i rain. SO. 9 
1500: 1 min. SS.a 
WOO: 11 mir,, 58.3 

J elle vQlgenae a*' 



M D C=l F r>F- R; O <5 F* (^ 1-1 M^ 



10 REM FORMAT "t";240ei: OPEN #4j"f 
FEN «S;"b" 

20 PRINT AT ll,£>;"Is er een deelnem 
lijat?": PRINT AT 12. 3i" Ja/Nee:"! 6D 
B b00 

30 IF I«="n" OR I»-"N" THEN GO TD E 

40 CLS t PRINT AT 11,4; ■' Inleien dee 
mersiij5t!"i LOAD fm") 1 1 '"Naamli j«f ' 
A DCO 

45 PRINT AT 12,4;"Inleien landenlij 
: LOAD «"m"iH"Landlijst" DATA e« O 

50 BEEP 0.3,20: CLS 

60 PRINT AT l,2i"VaBr de afstanden 



ilgorde'i PRINT (: 



r AT 7,5; "3-1 



90 PRINT AT i5,5?"Invoer Juisf:-"! F 
T AT 17,10j"Ja/Nee-! GO SUB £00 
100 IF I«="n" OR I»="N" THEN GD TO 6 
110 PRINT AT lS,02j"Welke afstand 15 
n de beurt?"! FRINT AT 17,6; ■' 

120 DO SUB 600! LET k-WAL II 
k>4 THEN GO TO 120 
130 CLS 

140 PRINT '■ ";: FOR i = l 

<STR« (it(H)>): PRINT "fn NEXT i 



150 PRINT ' 



r delen^K (k) /5l(10! LET paar^l: LET 
-0! LET aantal=0 
k=4 THEN LET maal=l: GO TO 200 



20a DIM R« 


43,ia> 




43). D 


















=egin ui tre 






NT dSs 


230 REM FR 


NT »4; 










2S0 REM PR 




260 REM PR 








270 REM PR 


NT N4: 


2B0 REM PR 




270 REM PR 


NT #5? 






300 REM PR 


NT tt4i 



CHR« 27iCHR« : 



CHR* 27;CHR* ISj : REM 



310 CLS 

320 IF k=l THEN GO TO 370 

330 LET Z«="tQC*"+STR« (Mlk-D) 

340 CLS 1 PRINT AT 0,2i "Inleien klaaaem 

ent ";x(k-l)i" meter!" 
350 PRINT AT 2,B;"NalBBn"i LOAD *"m";l!Z 

• DATA T*<) 

T «,Si"Puntan": LOAD ■"ni"tliZ» DOTA TO 
370 BEEP 0.S,20 



4 Af stdndsklassenient 



2;'>S TDtcialkldsaefflE 



400 CLS 1 PRINT * 



440 PRINT AT B, 2; 

4S0 PRINT AT 10,: 

4i0 PRINT AT 12, 

470 PRINT AT I4,2|'-6 Resultaten op 

4B0 PRINT AT li,2i"7 CorrHCtio dm 

490 PRINT AT 20,2; "Maak sen keuze 
"j GO SUB 600: LET I-VAL I»: IF Kl 
>7 THEN GO TO 490 

500 CLS J 60 TO (1*1(I1000 

600 IF INKEVSO-" THEN 60 TO 600 
610 IF INKEV«=-"' THEN GO TO 610 
620 LET I»=INKEY«: RETURN 

2000 IF rijden=l THEN GO TO 2210 
2010 PRINT AT 2,10i"Rit no :"ik 
2020 PRINT AT 4, 10("A<stiand !"i>((k) 



lllllllllll 



2070 INPUT "Nr van 1- 

20B0 IF D*(I)=" 

250 

2090 LET M«(l)=Dta>! 

2100 INPUT "Nr van 2 



llisb 



20 LET M»<2>=D«(! 

30 PRINT OT lS,6("Invt 
40 PRINT AT 20,Hj-'Ja/t 
50 IF I»="n" OR 1«="N' 
60 LET rijden=l; LET s 



■■ THEN G 
! PRINT AT 1 



21B0 


LET Q«<1)=M« 




! PRINT AT 1£ 




LET 0»(n=M» 




. PRINT AT 26 


2200 


PRINT #0, "Dri. 






CLS : BEEP 1 






,5("Druk op toBts 


2220 






PRINT AT IS.i 


PUT D«(I). RETURN 



THEN GO TO 2000 

i" ■■: PRINT 

BUS 23001 LET □ 
1) 
SUB 23001 LET Q 

iBtei"! PAUSE 0: 



PAUSE 0! GO TO i 



p RETURN 



2300 IF k-1 THEN LET j 

2310 LET i-0 

2320 LET i=i*li IF i >45 THEN GO TO 2350 

2330 IF 0«(l)<>T«(i) THEN GO TO 2320 

2340 LET j=T<i)i RETURN 

2350 LET J-3B0: RETURN : REM onbokend 

2360 

3000 IF rijden°0 THEN PRINT AT 11,3; "Tij 

d 15 a! ingevDerd": BEEP 1,201 GO TO 400 

3010 PRINT AT i,Bi"Rit no !";k 

3020 PRINT AT 2,B;"P3ar no:'*;paar 



3040 PRINT AT 5,4iMi 
i": PRINT AT 5, IBiMl 
3050 PRINT AT 7,S; F 

7,21; FLASH 1;"2" 
3060 PRINT AT 10,3;" 

2 ??'■! GO SUE 600 
3070 LET I=VflL I*: 1 

TO 3050 



2,23;"Punten- 

3090 INPUT "WinnendB tijd: 

3100 LET a=INT (ttjdM»! LE 

100 

3110 LET a-^(Bt60-i-b)/delsn 

3120 LET C-I: LET M<C)=INT 

1000: LET A(n=-M<C)<-a<C): I 



3150 IF 1-3 THEN LET 1=1 
3160 INPUT "Tijd van 2-o 
3170 LET a=INT (tijdy): L 



3180 LET a=*a 


faethl/delen 




LET M(D)-INT (a»100e+0.5 


1000: LET fl<2 


-M(D»*QiD): LET A»(2)'M» 


Z2e& PRINT AT 


li,0i"2"-. PRINT AT 16,3,r 


(Dli PRINT AT 


16,15[tijdv: PRINT AT It 


3in<D) 




3210 PRINT AT 


IS.Sr'lnVQer juist?"! PR 


T AT 20, 105"Ja/Nee ": SO SUB 600 


3220 IF I«="n 


OR U="N- THEN CLB : GO 


3000 




3230 REM PR IN 


«SlCHR» 27lCHR» S4; 


3240 REM PRIN 


•S;CHR« 27;CHR« 21; 


3250 






=STR« <aantal-l>: LET V» 


!-ETR« (tijd:. 


1 LET W«(1J=STR» M(C) 




•4;" '■iF«(l)iM»(C)! 




Ifl(l) 


3280 LET P»(! 


=STR« (aantal>! LET V« < 1 


STfl« <tijdy): 


LET W«H)-STR« M(D) 


3290 REM PR IN 


#4i" ■',p»ll);M*lD); 




;A(2): PRINT M4 


3300 IF aanta 


>2 THEN GO TO 3370 


3310 LET K»ll 


•M»IC)! LET K(l)'tija«: 






3320 LET K*(2 


-MSIDIj LET K(2>=tijdv! 



3340 IF H(IJ^H(2) THEN GO TO 3370 
33S0 LET Q«(1)»H»(11: LET a<l)-H{ll 
H«(l)=H«(2)! LET H<1)»H!21: LET H» 
• <1): LET H<2><'a<l} 
3360 60 TD 3610 

3370 PRINT AT 14,0; BRIGHT 1 J " 1 " 
33B0 LET 1=0 
3390 LET 1=1+1 

3400 IF M(C)>i,(i) am 

3410 FOR J-lflcintal-ll 

LET L<J)-L(J-1) J LET 

K(JI-K(J-n: NEXT J 

3420 LET K«<I)=M«(C)l 

T L(I)=M<CJ 

3430 PRINT AT 14,0i"l 

RIGHT 1;"2-' 

3440 LET I-I+l 

3450 IF M(D) iLIU AM 



<>0 THEN GO TO 

1»1> STEP -I: 
=K«<J-U: LET 



J THEN GO TO 



3440 

3460 FOR J 



1 TO I STEP - 



1 LET K(I)-ti 



» IF A(l)i:A(2) THEN GO TO 3500 

) LET 0«(l)=A»(l): LET Qin^ftdli LET 

(ll-A»<2)i LET A(ll''0<2)i LET A»121=0 



) THEN GO TO 
, I STEP -1: 



LET H(J)-H(J-1 

J 
3550 LET HSIIl 
3560 PRINT AT 
RIGHT li">'- 
3570 LET I-l*; 



lllllllll 



llisb 



1 TO 1 STEP - 



3600 


LET H 




-f\*< 


)! LET H(n 


A<2> 


3610 


LET r 




LET D 


aar-paar*!: BEEP 




2^7 G 












3620 
















CLS : 


PRINT AT 0,3s 


'Rittsnoverzicht 


























22*LEN (S 


















LET y 












4020 


FOP I 




aantal S 


TEP 2 




4030 


PRINT 
LEI y 


J] 


PR I 


T TAB 


,S;Ki 


11! PRINT 










op t 






































0.3! 


Klassement 


















5010 


PRINT 






FOR i 


-1 TO 


I7+LEN (S 




x(kl) 




PRINT '■-"! 


1 NEXT 


t! PRINT 



5020 LET ^ 
5030 FOR i 



5OB0 GO TO 
50'?0 PRINT 

5100 PRINT 

5110 LET v» 



ital<-t5 THEN LET y= 



5200 LET 

5210 FOR 
5220 PRIM 
TAB 15; h 



. )i: PRINT TAB 24; 1 

tt0;"Druk ap taets"i f 
ital--15 THEN CLS i GO 

AT 0,3;"Klassement ' 

"H FOR i-l TO ■ 
'i; PRINT ■■""II NEXT 
=30! IF aantal<=3a Tl 

-16 TO y 

I;: PRINT TAB 4;k*ii 
Djj PRINT TAB 24;1 (! 



■■ji FDR i=l TO ( 
ll! PRINT "-"i! NEXT 
'=45: IF aantal<-45 THEN LET > 



6020 PRINT * 
6030 PRINT • 



I THEN LET z«-"( 
''■STR* (ii(k< 



;al^-15 THEN LET > 



Illllllll 



lisb 



TAB I 



' I;: 



■ TAB ; 



3 NEXT I 

iiaa PRINT BBi-Druk op tooto "! PAUSE 
9 IF adntal>15 THEN CLS i GO TO ilSffl 
9 CO TO 400 
9 PRINT AT 0,3i"Tptflalltla3Seinent "'jkI 

bl40 PRINT " ";: FDR i'l TO (23*LEN 13 

FR* <x(k)))l: PRINT ■■=";: NEXT i: PRINT 

il50 PRINT "Nr Nasm Punten ■■!^« 

) LET y=30i IF aantal',=30 THEN LET y= 



7190 REM PRINT «3:CHR« STjCHR* 15i 
7195 REH PRINT KSiCHRI 27(CHR« SA; 
TZB0 REM PRINT (tflC'Nr Naam Punton 

7210 FOR i-l TO aantal 

7Z20 LET p«<II-STR» (i)i LET V»<1)=STR» 
(INT ( < (H<I}-H(11 Xmaal ) *I000) / 1000) 
'230 REM PRINT It4;p*( 1 ) th«< t > (h<> ) I " 

iy»<i) 

7240 NEXT i 



6220 IF aar 

b230 GO TO 

6240 PRINT 

62£>0 PR IN' 



.tal>30 THEN CLS 



! 60 TO 130 



': PRINT AT 13,2; "ui torst frapp* 

=RINT AT IS, Si "TOT ZIENS!" 

5 REM CLOSE It4l CLOSE (tSi STOP 



TAB 1 
&310 NEXT I 
4320 PRINT •0;-Druk 
GO TO 400 
6330 

6990 REM WeqsthrijVE 
7000 PRINT AT IpSj"* 
Itaten": PRINT AT 7, 

7020 PRINT AT 4,l;"f 



RINT AT 14,3;"TptiaalklassE 

7060 PRINT AT I6,3i'*Namen": PRir 

; " Pun ten- 
7070 PRINT AT 6,3) BRIGHT lj"Naa 
l" mater": LET z»-"naam"+STR« «< 
l\2* DATA k«0 

■RINT AT B,3l BRIGHT lt"TiJ 
Iter"! LET i*="ti jd"«-STR« ^ 



!": PAUSE 0: 



7090 PRINT ( 



: LET ) 



. BRIGHT Ij'Tunten"! 
)unf'+STR« m 



VE «"iii-jl,2» DATA 1 

i PRINT AT 16, 3i BRIGHT l;"Namt 
meter"! LET i*»"tot*"+STR« x(l 

■m"mi« DATA h«0 

i PRINT AT 18,3; BRIGHT Ii"Punl 

■ neter"i LET i«-."tQt "+STR« k U 
E t"iii";I;z« DATA hO 
7120 BEEP 1,201 PRINT i(0t"Zet prir 



B030 PRINT AT lS,S;"Maak asn ksuia <1-S) 

8040 GO SUB f>00: IF VAL I«<1 OR VAL I«>S 

THEN GO TO B040 
S050 IF VAL I»-l THEN GO TO B4S0 
8060 IF VAL lt=2 OR UAL I«-3 THEN PRINT 
AT 17, 5{ "Even wachten a.u.b,": GO TO B08 



.ET a=a*l: IF a=46 THEN GO TO 8120 
:F d«(a)C>q*<I) THEN BO TO BI00 
120 CLS t LET a-a-1 
1130 PRINT AT 0,3;"DHlneinBraIijat" 



IF 



-15 THEN L 



id«lj);: PRINT TAB I6(e«(j): NEXT j 

" 'RINT •0i"Drak pp toota": PAUSE i 

:F a>15 THEN CLS : GO TO B200 
8190 IF VAL la^l THEN GO TO 8000 
8195 IF VAL I«''3 THEN GO TO 8370 
8200 LET y=30: IF a'C-30 THEN LET y-a 
8210 FOR J-16 TO VI PRINT j;: PRINT Tf 
4id»(j);; PRINT TAB 16; 
8220 PRINT (t0j"Dri.k op 
8230 IF a>30 THEN CLS i GO TO 8250 
B240 IF VAL I«=l THEN GO TO 8000 
8245 IF VAL I«=3 THEN GO TO 8370 
8250 LET y=4S: IF a<»45 THEN LET v=a 
B260 FOR j=31 TO y: PRINT j;j PRINT TAB 
4;tJ«(j»is PRINT TAB 16ie«<jli NEXT j 
8270 PRINT l>0;"Druk op toets": PAUSE 
8280 IF UAL I«»l T^eN SO TO 8008 



; PAUSE 



8290 IF VAL I»=3 THEN GO TO eZ"! 

B30a LET 3=^*1: IF a-^At, THEN PF 

t is vol-i BEEP £1.5, 20: PRINT « 

p toetB"i PAUSE 0! GO TO a0i»0 

B310 INPUT "Naam van rij[jEr":cH 

T ■■Lan[f'!e«<a> 

B320 PRINT (t0;"NDg meer? " 

8330 GO SUB 600! IF I»-"j" DR 1 

N GO TO B300 

S340 CLS ! GO TO B000 



Q370 INPUT •■WBlk nr wij 
"NieuHS naBn>i"td*(c>>I 

B390 PRINT #01 "Nog maor 

B390 GO SUB £>00: IF 1«- 

N GO TO B370 

B400 CLS : GO TO B000 

B402 

B405 REM Opbergen op t. 

B40B 



B420 GO £ 



Stl! 



*1NT f 



1 B435 
B430 PRINT AT 15,10) BRIGHT 1 

B43E PRINT AT 16,10; BRIGHT 1 
AVE «"in";lj"N»amlijBt" DATA c 
■'m";li"Landlljsf DATAe»() 
9440 GO TO 400 
8450 CLS : 



: PRINT AT l,3i"=- 

B460 DIM d*(45,10)i DIM e«< 

B470 LET a-0 

84 B0 LET a=a+t 

B490 INPUT -Naam van rijder 

BS00 IF i«="KKJi" OR ?«="XXX 

S120 

8510 LET d«(a)-i«: INPUT ''L 

B520 PRINT a;: PRINT TAB 4; 

TAG 16;s*<a): GO TO B4B0 
8530 STOP 

9000 REM PRINT #5!CHF 
9010 FOR 1=1 TO 43 
9020 LET p»(i)-STR« <i) 
9030 REM PRINT MjpSd ) id» (i 1 ; " 
9040 NEXT i 
9050 REM PRINT »(S;CHR» Z7!CHR« 1 



I 27;CHR« 1 



■12400: OPEN (t4|"t' 



10 REM FORMAT " 
PEN BSi "b" 

15 INPUT "Voor afstaoden in '■;al, 

20 DATA al,a2,a3,a4 

30 DIM a*<l,21i DIM b«ll6,3): Dlh 
,7)! DIM d«(l,51i DIM e»U,5>: DIM 
2>t DIM 4*11, bit Din g«(l,7)! DIM s 
)i DIM h»(l,i)i DIM k*<l,7): DIM t> 
I DIM l«U,7Ji DIM u«(1.2> 

40 DIM c:<16): DIM d<li)i DIM atli 
M r(t6)! DIM *(16)i DIM g(16»! DIM 
1 DIM h<l<i)i DIM k<l&): DIM (416): 



lllllllll 



llisb 



. puntentotaal": BEEP 0.5,20 

B0 PRINT AT 14,5; BRIGHT 1; FLASH Ij-L 

tEN": LOAD * "m" j 1 ; "tQt»l0000" DATA ;•<! 

I": LOAD •"m"sls"tatl0000" DATA zO 

85 CLS : PRINT AT 10,4; "Li Jatan cambir 

90 FOR 1-1 TO 16 
00 LET j-0 
10 LET j-jH 

20 IF >i«(_i)<;z»li) THEN GO TO 110 
30 LET b«(i)-y»(J) 
40 NEXT i 
50 BEEP 1,30: CLS 
60 FDR i=l TO lb 

70 PRINT TAB 3| i | i PRINT TAB 6|z*(i])i 
■RINT TAB 18ib«(i)t' PRINT TAB Z7|7(i) 
80 NEXT i 

90 BEEP 1,201 PRINT (10: "Dr-uk op toots' 
: PAUSE 

210 CLS : READ a^stand 



"m"; l!"tijd"*STR« (afatand! DATA p ( 1 
23a PRINT AT 14,l;-Laden totalen :"ia 

fstand;" meter": LOAD »-m" j 1; '■tot«'-*STR« 
(afatandl DATA q« ( ) i PRINT AT' 15, 1 | "Lad 

■'m"ji;"tot"i-STR» (a+standl DATAqO: PRl 
NT AT 17,l;"Gegeven5 verwerkon; "i BEEP 
.5,20: RETURN 
240 GO SUB 210: REM Re^ultaat 500 meter 



I THEN GO TO 260 



THEN GO TO 300 



320 


LET E( 


l=q 


j» 








330 


NEXT i 
















?10 


REC 


Ri»u 


taa 


t 5000 


350 


FDR i- 


TO 


16 










LET j- 














LET J- 


i + 1 












IF p«( 






THEN 


GO 


TO 370 


390 


LET f< 






LET a 






400 


LET j- 













410 


LET j'' 


J*l 










420 


IF q»( 




• (i 








430 


LET g( 












440 


NEXT 1 













450 GB SUB 210: REM Resultaat t: 

460 FDR i-1 TO 16 

470 LET j=0 

480 LET j=j*l 

490 IF p»(jl<>z»(i) THEN GO TO ' 

500 LET h(iJ=p(J)i LET t<i)=J 

510 LET J=0 



Illllllll llisb 



570 FOR 1-1 TO 16 
SBs) LET j=0 
590 LET j=j*l 



b3a 



5 REM PRINT »5tCHR« 27jCHR« 21; 

t50 REM PRINT l(S;CHR« 27;CHR» 23; 

6b0 FDR i=l TO 16 

670 LET a»(l)»STR« (i)i LET c«(ll-STR« 
(I(i>)j LET d»(l)=STR« (d(i))i LET e»(l) 
=STR» (e(iHi LET r«!ICSTR« (rlDtj LET 

(•(1)-STR« <f(i))i LET g»ll>=STR« (a<l) 
): LET a»<i)-STR« (eli))! LET h*(ll-STR* 

(h(i>): LET k*(t)'5TR* (k<i)>: LET t« ( 1 
)-STR» (ta))i LET 1«<I)''STR« (i(i>J: LE 

6S0 REM PRINT W4;a«(l)|" "}zS(i>j" ";bS 



l_LJXE l—ISTEFt 

EBBRT ZWART 



L pragrajnma zorqt 



Hi>t neaft ten opzichte 



2. Dd carets 4 positiss van si ka r 

zi Jn garaaarveerd voor hat regal nan 
zodat da ragalnumnars goad zlchbAar 
en er nlvt onder hordt dDorgaachraven 
als de BASIC regal niet op de printregel 



3. UOG'a an gra-flacht 



instal leerprogramma bijgsleverd. Da L 






ta z en dan bytes opgegaven 



:ia mssQvgavan oiag 



afgedrukt. Da contr 



bepalen, mits deze mlntnaal 32 
ikters uit elkaar liggen. Ook kunt u 
. aatste printregel bepalen. Vaar 12 
1 papiar i5 da advisEregel '68 en voor 
nch papier 62. 



Type de 4BK (d* I6K> loader in an RUN 
het pragr-dmrna. Ala u argana een typf out 
hebt gemaakt, kr-i jgt u een boodachap 
gavolgd door "STOP statement". U ooet 
net zo lang da fauten in ux listing 
verbetaran totOat u tijdena da RUN de 
boodachap "Out at DATA" krijgt. Save de 
ver kregen coda nu op tape Bet SAVE 
"LISTER" CODE 64312,727 (at I6K. 
31744,727) en Bpoel de tape terug. Typ 

CLEAR 31743 

Typ nu hat instal leerprogramrna in en RUN 



deze BASIC liater vervolgens te 
men gebruiken, hebt u tuae kanalan 
lig. De volgende atateraants 

itialiaaran deze kanalen. Daze 

itementa moet u dus loa invoaren. 



OPEN #3,"t"! OPEN H 



31744, IB 727 bytes lang en ban Hordan 
aangernspen met RANDQMIZE USR M512 
131744 vDor 16K>. In dat geval wordt de 
tomplete listing van hot BASIC praqranma 



in moet er in het BASIC p 



met RANDOMIZE FN A<eer 



-ogramma in een REM 



10 REM LISTERbbbb <b ' spati 



1 Gecrt 



I met HEXLOAD 



30 

40 DEF FN F<X«)-l6l<CODe )(»U )-4e-39« ( 
!(«<1)>"9">)+C0DE X«(2)-4B-39«(X«<2>>"9") 
S0 LET ADR-UAL ■'fc4512": LET L=1000 
60 READ H»t LET SDM=0 
70 FOR C=I TO LEN (H«) STEP 2 
SB LET WRD-^FN F(H«(C TO C->1>) 
90 POKE ADR.WRD 
100 LET ADR-ADR«-1 
110 LET SOM=SOM+WRD 
120 NEXT C 
130 READ TOTAAL 

135 IF TOTAALOSDM THEN PRINT "FOUTE CH 
ECKSOn IN REGEL "iL: STOP 

140 IF TOTAAL "SON THEN PRINT "Reqel ";L 
i" OK" 
145 LET L=L+i0 
150 50 TO 60 
1000 DATA "1 82803 Ib2d01 0000000003 Ib2d000 

e4O4400000000002a53Si:232323233Eeabe200b2 

311cafe010a00edb018",VAL "2292" 

1010 DATA "0a21cafe0fi0a363f 2310<b3e-fa322 

Bf c a -F 3229'r c 2 a0b 3i: 7i: b 5 28 1 ee Sd de ! d d 6e0c: d d £> 

60d23cdiel92226fcda6B04dcttii05cd6el92b3e0 

dlS12211027ed6eI722",UflL "6304" 



llllllllll 



llisb 



li320 DATA "26fc2a535c2b3B0dtB017ocdbilBf 

efd2B29fe2030i33231B<UoB03805fea5da0dfdf 

S060iaAa53a0Beb4'f 06002 td*fd094fiebcd7Sf Iff 

ld723iaq-fd723ed5b2t",VAL "7273" 

1030 DATA "*ca7ed52200e3e04cd01163«0cd73 

e03c 00 1 1 tc 9 1 93a2Bf c 3c322Bf c4-f 3a24+ cb9300 

3c:da9t d46234e232323e5cd2b2dBf 3 1 2e38i:d* 1 2 

b3a22fcci04322Hft91",\ 

1040 DATA "473e20d710fbcde32dBlc3Bafcf3« 

53e04cd0116el-f l'Ce90302dlll2'fccd66fd300S3 

e3f d7 1 82 f d6S032t f f 90707074 f 0600eb 2 1 39f e0 



"7353" 

ilfccdifc* 
>lcd7Sfd2 
'131ad71310+b79a 

"7690" 

; 3c 3 228* 
101163e0 



9Eb06081ad7]310fb: 
1050 DATA "la*ccd66tdlB0fc 
ad71 10af ccd66f deS3B03cd01 1 
3c3Bafc4*Jaa720033779c947i: 
7c93a2SfcB03225fc4f ",UAL ' 
1060 DATA ~3a23-ftb9d03e0dd73a2: 
03225<c4104052a053e20d710fb3a26 
c4f3a24fcb9d0H53a29+c:a7280B3p0< 
Cd73e03cd01l63a22f c",VAL "6401" 
1070 DATA "c605473e20d710fb21b9fB7n3c2a0 
53cld72318f7ai3e03322Bfc3229*cc9030602030 
6080503040505040404040404040403040404040 
40503040S0504040405" , VAL "3455" 
1080 DATA "02020206060406080308060707080 
70B060B0507070809060S0B0B06060 60906 080 a0 
i706070B0605060b0305060 
",VAL "1399" 



lIBISieiBl 



X«<1!>"9"1 )+CODE X»(2>-48-39»(X«(2>>"9"> 
50 LET ADR-VflL "31744": LET L-1000 
60 READ HS: LET SOK-0 
70 FOR C-1 TO LEN (H») STEP 2 
80 LET WRD=FN F<H»<C TO C*l)» 
90 POKE ADR.URD 

100 LET ADR-ADR+1 

110 LET SOK=50fH-URD 

130 READ TOTAAL 

135 IF TOTAALOSOM THEN PRINT "FOUTE CH 
ECK5011 IN REGEL "jL: STOP 
140 IF TOTAAL-SOM THEN PRINT "Ragel "|L 



5 LET L 



+ 10 



150 GO 1 
1000 DATA "182B031b2d010000000003lb2d000 

84e3e00000000002a535c232323233eeabe200b2 

311ta7e010a00ettb01B",yAL "2158" 

1010 DATA "0a21i:a7e060a363f2310fb3efa322 

87ca-f322?7c2a0b5c7cb528lBe5adeldd6e0cad6 

60d23cO6eI922267c:dd6B04dd 6605c d6sl92b3a0 

dlS12211027cd6el922",UAL ■'5792" 

1020 DATA ■■267c2a533c2b3o0O180t7BcOb618f 

B0d2e29'fe20300323tBf lfBB03B05f ■aSda0d7d'F 

50601d6a5380aeb4f060021de7d0946Bbrd787df 

ld72318c4d723eiI3b26",VAL "6761" 



1B30 DATfi ■'7ca7e[J52200B3e04cd0114,3eBrd73 

«03ca0116c9l73a287c3c322a7c4f3fl347cb9.30B 

3cda97d46?34e2323r3e5[:d2h2[Jef 3 1 2e3Bc df 1 2 

b3a227cci.0452257c91",VflL ■"5749" 

1040 DflTfl "473e20iI710fbcdB32delc3Ba7cf5B 

53e04cd01 16el-f I*o903e2di 1 127ccd6t7d30053 

B3f cl7 1 B2f die«32f + f 90707074* 0fi00eb 2 1 397e0 

9ebP4i0aiad71310<bl t'-,VAL "6841" 

1«S0 Dflrfl ■'Ia7ccd6i.7dia0td64f l]027ccB6*7 

dd7110a7ccdi,67dB53BB3cd0il6elB60tcd7B7d2 

3c3Ba7c4f taa720033779t947131ad71310<b79a 

7c93a257ca032257c4f ",VAL "t410~ 

10&0 DATA ■■3a237cb9d03e0dO73a227cc6054fS 

032257c:4104052B053o20d710fh3a2B7c3c322B7 

c4t3»247cb9d0o53a297ca72B0a3e04cd0I163e0 

cd73»03ca0ili.3a227c",VflL "5377" 

1070 DATA "c:tp05473e20d710fb21b97e7e3c2S0 

53dd723 1 Bi 7e I 3e03322B7c 3 22 97c =90306020 30 

608050 304030:^04040404 04 0404040 30 4 0404040 

403^3 04050504 04 04 05 ",VAL ■'3071" 

1080 DATA -02020206060406080508060707000 



S0506070807060: 

70e07ff8ia: 

1090 DATA ' 



'050- 



f f + f * flc697374696ei 
1110 DATA "206f662l 

000000000000d0d'r -r " , val 



flflfK 

ffsiaia 


*fflf 
B-fSfSf 


'» 


SfSfBff 


ff+lf 












fif-f-f- 
















VAL "13 


23" 




6 96c 65 3 


200000 


000 



llllllllll 



lish 



130 INPUT 'Wnimaal I: ",^, ,f a<l THEN 
60 TO 130 

140 POKE base.ai PRINT a 
^145 PRINT "Wat Is u« r»cht«r kantlijn? 

150 INPUT "minimaal -;(a*311i", -,bi IF 
b<a+31 THEN GO TO 150 
160 POKE baae-i-l.bi PRINT b 
170 PRINT "Wat is um laatst* Drinraaal" 
'"pnr blfld-? "[ ^ 

180 INPUT "Mlnimaal 5i ",(:, IF c<5 THEN 



^B0 CLS ! PRINT "LiBter is gBistatlaBrd 

■ "^* "ordt nu gssavad meti SAVE "" 

LISTER"" CODE "jtaasB-34i",727" 

205 SAVE "LlSrER"CODE baBS-34, 727 

210 STOP 

500 FOR n-0 TO 6 

510 INPUT "AUeofi ENTER ie stopptfni "t 
LINE a* ' 

320 IF a«="" TV«N GO TO 550 

323 PRINT a»(" ", 

530 LET a(n+l)=WAL a* 

540 NEXT n 

550 POKE basB,n 

560 FOR m-1 TO n 

570 POKE baaB»iii,a<Bil 

580 NEXT m 

390 LET basB-baea*B 

595 PRINT " 

600 RETURN 



HTLEG ASSEMBLER LISTING 



1 REK Ebsrt ZHart 

3 REM Llistinstaller 

6 DEF FN a(*,l)-^USR 64512 
10 DIM a<7> 1 CLS 
20 PRINT "Installeerprcjgranima 8AS1C-Ii 

32 PRINT '"Heeft u aen 16K (0) of sen 
48K <U verEies: "j 

33 LET fi«"INKEV«i IF A»="" THEN GO TO 
33 

34 IF a«— 0" THEN LET base^31746: GD T 
O 40 

55 IF a«--l- THEN LET baae«64514i GO T 
40 

36 GO TO 33 

40 PRINT ""LADEN iister cnde"i LOAD " 
L1BTER"C0DE baaB-2,737 

45 CLS I PRINT "Wat ^ijn de control ch 
aractBTfi"' "Qm UDG ts activeren? (ma« 7) i 

50 BO SUB 500 

60 PRINT -Wat iijn da control characte 
r5"'"Dm UDG te deacti veren7" 
70 GO SUB 500 

80 PRINT "Wat zijn de control cbaracte 
r5"*-Dm grafische fliode te attiveren?" 
90 GO sue 500 
100 PRINT "Wat zijn dB control characte 
rE"'''oni gra-f. mode te dBacti vBren7" 
110 GO SUB 500 
120 PRINT -Wat is uw linker i^antlijn? " 



R10: Voor l&K gebruikers 
R30-140I Declaratie ROM 



R520-550: 



Illlllllll 



R940-1000: AIs het een k 
de lenqte Vein dit keyMor 
in B gezet. 

R 101 0-1 050 

it, staat 
oecontrolei 



R1070- 11201 



R 1290- 1330 J 

marUt In BC ga 
mtack QBplaati 

wordt hat 

gcdupl icesrcl c 

PR_FP. 
R1340-15'f0i Het ■ 



<t ie. Za JB, 
: in PR_HDR 



lelBi 






' kanaal wordt geopenrJ 
F het Bsn UDG is. 



;0-i670i Print d 
' gra-ficcho imdE. 
-act«r» iijn (Car 



llisb 



on> dB UDG te 






R290«>-3320: Dit zijn de bytes die na; 
de printer geatuurd mocten worOen voc 
de grafiache karakter-a (B per- character 

R3340-3380: De kopregel . 



LD A.MEA 



ETMBl-ER- 



_is-r 1 IMG 



30 


DEFMID 


FOU 




40 


PROS 


f-W 




m 


DP Ct« 


FtHI 


t«l60l 


fiO 


LN flDF 


Ktil 


• I9GE 


70 




HRJ 


H2DE3 




NUMBEP 


tyu 










• 202B 






Fill 


•2BFI 


iin 


tWPL 




(131 






EQU 


t2E 




ENO C 


bUU 


ttse 


I4U 


UOG 


t«U 


•SC7B 



JR MAIN 



i DJJDG DEFS 8 
i T_U[>6 DEFS 8 
> D_SRfl DEFS e 
5 T^GRfl DEFS 8 
3 L nARS DEFS 1 
R_t1ARQ DEFS I 
3 DF_L»4E DEFS 1 
COUNT DEFS 1 
3 ENOLST DEFS 2 
LINE DEFS I 
a FLAG DEFS 1 



420 NONflME 



480 ENDNM 



ID 


HL , NAME 


II) 




lit 


(HL>,-7 


IKC 


HL 


DJNZ 


•-3 



in 


(FLAG 


,A 


in 


HL,(DEFADD 


in 








L 






Z,NO 1 






HL 




MJP 


IX 






Illllllli 



llisb 



670 




LD 


fl,»OD 






JR 












700 




CALL 


LN_fiDR 


710 






tENDLST) 


720 




LD 


HL. tPRDS 



: LD A.I.HL) 
CALL NUMBER 
CP tOD 
JR 2 , ENTER 



JR NXeVTE 



360 PRCHflR ( 



900 NO^GRA F 



SfJB «A5 

JR C , NO_TOK 

EX DE,HL 

LD C.ft 

LD B , #00 

LD HL , TABLE 

HDD HL , BC 



JB NXBYTE 

R5T BIO 

INC HL 

LO de,(endlst: 



CALL DP_CHN 



470 SPACES LD 



GRAPH PU5h 



200 NO_END ADD HL.DE 



LD C,A 

LD A,(DF_LME) 

CP C 



JR 



IC . MG_F 



290 NO_FF 



CALL PR HDR 
LO B , ( HL > 
INC HL 
LD C,(HL1 
INC HL 



PUSH HL 
CALL STK BC 
RST »t2e 
DEFB OUPL 
DEFB 3TR 5 
DEFB END C 
CALL STKFCH 
LD fl.i.L_MORG) 
ADD A , a 



mi LD 


A.iOEl 


2460 


RST 


ttio 


2470 


INC 


DE 




DJN2 








DE.T BRA 






PR 5T4 




JR 


ENDGRO 


2530 










DE.D UDG 


2S50 


CALL 


PR^STa 




RST 




2S70 


LD 


DE,T_UDG 


2580 



930 ENDGRA F 



CALL CNTR 



2020 F 

2030 

2040 

2060 
2070 
20S0 
2090 F 



_ST4 LO C,A 







2220 




LD 






2230 




LD 






2240 




CP 


LD 




22S0 




RET 


COLL 




2260 




LD 


POP 


HL 


2270 




RST 






2280 




LD 






2290 




ADD 






2300 




LD 






2310 




ADD 






2320 




LD 




ncTgi 


2330 




LD 


LD 




2340 




INC 


RST 




2350 




DEC 






2360 




JR 






2370 


SPACE 


LD 










RST 












RLCA 




2400 


P_NOSP 


LD 



A, (COUNT 5 

n,8 

( COUNT ) , A 

C.ft 

A,iR_T1ARG) 

C 

NC 

0,#00 



A,(DF_LNE) 



2450 PR_HDR PUSH HL 



2640 
2650 
2660 



'. LD A, #03 
CALL OP CHN 
LD fi.lL_MARe) 



JR Z , E2 



Illllllll 



llisb 

























2730 


RET 




2750 TABLE 


DEFB 


3. 6. 2, 3. 6, 8.. 5 


2760 


DEFB 


3,4,5,5,4.4.4 


2760 






DEFB 


4',4!4'.4!5!3!fl 


2790 


OEFB 


5.'5!4.'4;4,'5!2 




DEFB 












DEFB 


8,6.8.5.7,7,8 


2930 


DEFB 


9,6,5.6.B.&,6 


2840 


DEFB 






DEFB 






DEFB 


5,7.6,7,8.6,5 






6,11,5.5.6.7 


2890 


DEFB 


8,7 


2890 






2900 TABLE 


OEFB 


ttFF.«8l.N8l 




DEFB 




•81 






DEFB 




•FF 




2930 


DEFB 


t>81 


•81 


•81 


2940 


DEFB 


•Fl 


•Fl 


•Fl 


29S0 


DEFB 


BFF 


•FF 




2960 


DEFB 




•Fl 


•81 


2970 


DEFB 


ttei 




•FF 


2960 


DEFB 


#FF 








DEFB 






•Fl 




DEFB 


#Fi 


•FF 










•81 


• 81 




DEFB 




•8F 


«8F 


3030 




#FF 








DEFB 






• FF 








•FF 


•FF 


3060 


DEFB 


•FF 


•Fl 


•Fl 


3070 


DEFB 


NFl 








•FF 


• FF 


3090 


DEFB 




•Fl 


•Fl 


3100 








• FF 


3110 


DEFB 


»FF 






3120 




•8F 


• 8F 






DEFB 




•81 




3140 


DEFB 


•FF 


•8F 




3150 


OEFB 








3160 


DEFB 






• FF 


3170 


DEFB 




•FF 




3)80 


DEFB 




•81 


• 81 






•FF 




•FF 




DEFB 


•FF 


•FF 


•Fl 


3210 


DEFB 


MFI 




•FF 


3220 


OEFB 


•FF 






3230 


DEFB 


•BF 


•BF 


•BF 




DEFB 




#FF 


• FF 


3250 




«(8F 


•8F 




3260 


OEFB 




•FF 


•FF 


3270 


DEFB 


•FF 


•FF 




3280 


DEFB 


•FF 


•FF 


•SF 


3290 


DEFB 








3300 


DCTB 


•FF 




• FF 


3310 


DEFB 




•FF 


•FF 


3320 




•FF 


•FF 










M OEFM 


"Listing of " 


3350 


DEFM 


"file; " 


3360 NAME 


OEFS 






D^B 


•OD.tOO.ttFF 


3380 






3390 






3400 ZZZ 











LJIvIX V^EF«SEt_I 
MEX /DEC 

J.C. HOLLANDER 



7000 GO TO 

7001 REM * 



7025 PftlNl 
TO 7200 
7100 REM > 



■ DEC." 



-< HEX. 



PAUSE Oi GD 



"DECGETAL ?:"tZ 

X=Z: LET W=l*rNr (LN Z/LN 1 
X(MI: DIM R'<M} 
N-W TO I STEP -1 



'150 FDR N-W 
'160 60 SUB 
'170 PAUSE O 



TO 1 



-INI 



1 NEXT 
= HEK "( 
STEP -1 



(Z/lt-l 



■ Z=Z-R<N)! RETURN 
= X(N>>9 THEN PRINT CMR» <X(Nl+55> 
: RETURN 

^INT CHR» !X(NI*4B>i" "ji RETURN 
EH tit MENU ttt 
-S : PRINT " MEN U"" 

"CDD- MAN DEC NAAR HEX, CH3 

t HEX NAAR DEC."'""WERKT ONGELIMITE 

1ET CAPITALS en Klein door elkaar to 

I. Et-3S of, ..tot 33 HEXfl-GETALLEN, " 

■"■MAAtC UW KEUZEi D of H" 

INKEVS'-h" OR INKEy*="H" THEN GO 



7230 IF lNKEY«="d 

TO 7100 
7235 GO TO 7225 



1 INKE¥»-"D" THEN GO 



Illlllllll Ilj5b 



LU5T-TJP 




llllllll qi llllllll 

1=1- F-|_OMF=- 



ZniiiBl cpt al.3 Lincpt maten gebruik 
von da Fiie dia sup_Bsni heat. DezB file 
bovat de code zargt dac cot en uncpt een 
stBl c^anrlal_ld '3 taegaujorpen krijgen en 
zich dus met hoeven bezLg ta hauden met 
het epenan van files en mat daarasn vast 
zit. Dit heoFt tiijae vnnrilBlen, Can Ber- 
ate la dit opanen van filaa voar veel 
Jobs een onBeuaar aalijka bazlohaid 20- 
dat auposm vcor vaei praBramniB's ta ge- 
brulken I3. Ton tmeeda is hat band 10 en 
deZB cLida aport ta l^cLinnan uorbetaran. 
als Lia 5up_8em dcor lets batars vervan- 
gan iijn metoon alle proaremmo 'a die er 



□b huidiae varsie van aup asm her- 
kent Eiuaa verachi liande aanroepen van 
een Job, de "EX.EC proa" variant, uaarbij 
ean uiindDui gaopand ujordt en ari in- an 
Liitvoer files gevraagd luordt, an de "EX 
proa. Fi lei, Files" variant luaarUij prog 
uordt losgalaten op Filel en filee. Da 
serstB variant heeft iijn uiiidouj in de 






ina FR0CE5 moat alle 



aai: nag Bnigo die speciFii 



ton jol 



■sprakan zljn 



inatru>:tie "bro.s start", on vaor de 

'■job.name". Dit zargt ervoor dot bij 
sxac-en van de job da aupaam cade ujordt 
osngeroepan. HeC is het hondlgat om da 
file supaam direct hiarna te includen. 

He File dib 3up_aani aobrijikt 
zorgt zelF voor vcldoonde "data area", 
die mat ean QflTPt Car aoms SI2EJ op- 



Een varderB aFspraak 13 nog daC 

spociFlceerda labela luQrden doorgegeven. 
Zo IDU man biJvnDrbBBld een optla in 
kunnen hnoLJon dat ala aup_o3m uiordt go- 
Include mot label OFT_DELETE - 1. dan 
luordt da mvoer f Ho na gabruik Qeufist . 



Eon mogalijko ueruanfllng van sup_Bam 

non to vraaan hat 

Dp hat beeldschorm 
lUBBraegeven directory te "plukken". 

Est! andore mogalijuhaid is het mokan 
van aen "apaclal" job uoor da Toolkit, 
dia son asnroap "EX cpt, fllol, flleS, 

"EX cpt,FiiBl,fllol_cpf, "EX cpt.filaa, 

moB 20U man brhI Ben eaotal Files toge- 

liJeer oon andare magsliJkhBid la hot 
vorbouijian van cpt an uncpt tot basic 
commando's. Dit la uac gecampl iceordor , 
Ds "DOTB xxxx" lou uit da files moBten 

Uardnr ?au roan PRCCES in supervisor rnods 
moaten aanroopan oiiidat die Br gaan 



ling 



)udt i 



; pointf 



llllllllll liisb 









Het IB natuuriijk mogalijk nog veal 
moor nuttigo uarvangers voor sup asm ta 
bodonken. Ealang daza op uergoliJkbBro 
uiiJZB ala Bup asm dat doat mat da PRDCES 
routins pratsn is het relatlef aonvoudig 
am cpt en uncpt mat die routines uit to 
rusten. Cis routinos zijn dan ook ueor 
Beachikt vuor alle vclgonde programma ' 3 



lijkbart 
dan bap 
PROCES 1 



mnetan zorgan . 









( OUTPUTS; dO = qdos 



bO, Inp.ld(a4) 



Illlllllll lljsb 



IF error THEM 



> "Qeuooti gevc 
1 luorden. 

) THEN 



' Zet d3 weer 



FOR dO :- lengte 
a3 :- [0] .* n 
REPEAT 



i(a3,dl.ul ,d3 



d3 = knoop THEN 
s3 := b4 -r 3 « d3 
. (» = C d3 ] *J 



adda.l d3,a3 
adda.l d3,B3 



Illlllllll llisb 



bgt.B mc.nKt 1 eeg de buffi 

bsr tluBh_outp END IF : 

subq.l tl.dO END FOR dO ; 



t INPUTS ; d3=0, a3=C01. 
t outputs: geen. Boom no. 
' CEBRUIKT dl ,d2 En al. 
t Ir d3.w wcrdt de laatEl 
I on dJB IB gebruiken at; 

f INPUTS ; al en dJ. De . 



IF qetbl t = THEN 



BZVPifiR dS.W 
lees byte(d:i 
KERSTEL d3.u 
Gtap d2 In a 
ELSE 



t INPUTS : geen 

[ OUTPUTS; d2.b is t. 

I GBBRUIKT d3. invoei 

■d_b¥te move.u »7 , 



Ikt d4,dS en aS. 

FOR d3 := 7 DOUNTO Q 



Illllllllll llish 



• - ROXft en ROXL, 

- - sec en BCS. 

< De Invoer file Is ge&ufferd in d4 , d5 en aS. die 

: dPie subi-Dutinc dan aoH niet veranderd mogen woi- 

1 INPUTS ; geen. 



)-d3/a0-al,-l5c 

Inp 1efi,d2 

ip bur (a4) ,a5 



1.1 (9pl*,dO-d; 



HERSTEL rei 
END IF ; 
Haal long. wort 



* Routine die een TRAP i3 c 
« error i n dO ' end of file 

* INPUTS ; als TRAP »3 bed, 
t OUTPUTS; als TRftP «3 beh; 






t Routine d I e de 
« INPUTS : db bev 
* OUTPUTS r b6 = t 



■■■■■Illlllllllll 








Call. at 








dO-di/aO 




BEUAAR regist 






*outp_le 


n.d2 


d2.w i= buffe 






d6,az 














IF d2.» <> 








a4),B0 


Hchri jf.bu 






ib.s'i 




















qd3 




end' IF ; 


eoiply 












BDve.W 


•oulp^le 


n.db 


d6.w ;= bulfe 




.u.rout, 


n^5. 






* DflTfl 


typen; 









lish 



I flrray[0. .255] i 



lit. a5 ttl jsl r 
jaat a)s volgl 
- Ala d4 geen I 






d5 en db. In d4 \ 
•q Iti d4 lit slaat 
)n9WQrdB dat nog In t 









. d5 ;= 0. inoch d4, noch het geHet 



Illllllll llisb 



tvoor gestuufd, 



E GEHEUGEN GEBRUIf 



■bB 2Zb i 3 byli 



SUF-F-O R "T E R 



« Version 2.00 (c) A. Plomp lfSi> 

t Zorgt ervonr dat de aanroep 'bh prog, I 
t een aanroHp van da subroultne procee n 
« INPUT : aO - cnannal_iO fllel, oeoper 
X a3 = channal.id tMe2, geoper 

t a4 = pei-5l» adi-es in vrije di 

« aS - laatBtB adre5 van jnb. 

« OUTPUT : dO - error kode. 



Illlllllll llisb 



I; DftTfl SPACE : 102 bytee vt 



eerste 102 byti 
IB2 wardt er gei 



■ ubq.u tt2,d0 



IF dO = THEN 

GOTO interactiof 
IF dO <> 7 THEN RAISE C 



nove .1 dO, d3 



REPORT ttO.dO 
FORCE. REMOUE^ . 



Illllllll llisb 



Open ton_ volgen? 



INPUTS ; d7 = 



■■■■■■Illlllllllllllll llisb 









addq.l 


•bufl.len.dS 


. (» buffer beginl op 








trap 










If error THEN 


bne 




RAISE ■ 






IF f ilenadm* = ■■ ■■ THEN 


beq.B 


Bltit_9f 


RETURN ; (t lero - true, dO - 




(]l.(a4) 






dO,a3 


















a4.fl0 




moveq 


Hio.open.dO 




e[g'' 


dO.aS 


io ;= cotiBolE Id: a3 ;= file cha 






IF error bl J openen THEN 






REPORT error up console 


IfDve.W 


ut.Brr,j2 




br^s 


9e?'file 


ELSE 


mov^q 


fl.dl 


ZERO. FLAG ;= FALSE- RETURN 



INPUT I aO = cHannal id. 

oae aO noveq (t i o. cl ose , dO CLOSE aO 
trap 112 
tsl.b dO IF error THEN 



"LEA qu_ inp(PC) .a 






'"'- "" '^lll 'input f i 


e ; • 


tr,n9 nput fMe : 




qu out dc.« H 




tr ing "Output file ; " 




dc.b 'Output f 


le : ' 






« Db input buffer lit direc 


□P (b4) 


Dtt kan probl>men geve 


aangeilen 


* PHOCES dll ook als gierkqe 


eugen la 


qebrulkon. Het kan voo 


SUPPORT 






de buffer verloren gaa 




* aanroep van PROCES. Doie 


3p I'n be 


rt worOt geacht geen ge 




* maken van -at or in het w 


prkgeheuq 


n slaat. 








OObvte. InpuV buffer 





nnE-liner cnmpEhihiE 



ONE-LINER COMPETITIe'i 



De competitie eindigt i 
SINCLAIR GIDS. Dan Mart 



De H0DFDPRIJ5 van Oeis competitie Is een 

REGLEMENT 

een aantal rsgels: 

l.Alle lezers van de SINCLAIR GIDS fflogen 






J.Ala de ruimte het toelaat ZLillPr 
!e DNE-LINERS allemaal publiceren i 
jINCLAIP:-6IDB. 



de SIMCLAIR GIOS 



* -Jf 



LJITSI_l=lC5 le ROr-J 






Enkele hadd^r 






> e^n RANDOMIZE 



ets^e (Belgi^l er. 
. utility. 



10 PAPER 0: BORDER 01 ir 
q-0 TO 39[ READ a 



H+q.a: NEKT 



: READ a: POKE 
: LET d-l5( FO 

iijiiiai LET i=usR zeeaa: 

F SCREEN* (10,d)'>"n" THEN PRIN 
■ AT ltl,d!"V: PRINT AT 20,(ttRND 
[5-RNDI10;"OO": PRINT ! POKE 236 
>2,-l: PRINT s LET d-d* (IN*:EY»=" 
1")-<1NKEY«="1"J! PRINT AT e>,lil|- 
IcorS! '■las" mad by Holyaoff 
NEKT a: DATA Si,6, 1 , 197, 33,7,0, 
:'',B',6',229,2e'5,IBl,3,225,17,2«1,ia 
, 167,237,90, 125,^54,255,32,237, 1 



LET g2=PEEK 



INPUT "Start vana 
ii "jg: INPUT "Lij 
it: INPUT -PapBrl 1 

ifc: LET nl=175: IN 
3) ")fi CLS 1 RAND 
.ET gl=PEEK 236701 
3671: LET a«=CHR» 
t.CHR* IS+CHR* f-> 
CHRt 16+CHR* inktCHR* 17->CHR» pa 
per*a»: LET i=LEN a«i RANDOMIZE 
?t LET il^PEEK 236701 LET z2-PEE 
K 23671: FOR K=g TO g*12j READ « 
: POKE K,m: NEXT xt FOR M=g+!J T 
O g*12+LEN a«: POKE ii,CODE a«U- 
(g*12>): NEXT x: RANDONIZE USR g 
: PAUSE 0: CLS : LET Isngte'i*!? 
: PRINT "Start 



gte: 



;ngte;' 



NDDMIZE USR " 



LINE s»: PRl 



["Starten via RA 

INPUT ■■Filonaaii 

NT '"Saving "j« 

G*CDDE OilengtB: 

ng "is«|i VERIFY 



■'!S«i" CODE ■'i9j",";lengto! DAT 
A 205,nl,13,l7,gl,o2, l,zl,z2,205 
,6e>,32,201 



1 FEM P. Zeiaerlo-- 

1S0 1NI-, u<i BORDEF I'l! Ci^c-Et 
RIGHT 1: CLS ! PRINT St (;i,i?-. 

groat (P/W^ '^" ; INPUT ^,t 
,^lflT 0,lj LINE j«: POIE 2;i 
t PSUSE 5eiJ PRINT AT 0, ^'i''hi; 
1 vergroteti '(»/l(?P) -"' ; INPL 

22-l,PiflT i",!; LINE l»i cqk 
t59,2i PRINT AT ff,27}Vft\. j«i 

m=I TO (VAL .i«>: PLOT ie'0*n 
m: NEXT mi FOR m=iii TO <yAL j 

: FDR n=l TO iVAL i*i ! INh 
«&): BEEP !S,l,n-:;5! PLOT m-l 
B-Hn'ni NEXT n: NEKT n: PRINl 
ZI,1B>!"DPUK EEN TOETS": PfiU? 



Dne-linEr cnmpEbihiE 



FILOSOFT 



m i 



KE Z3£ 


19. IP! FOR n 


-t- TO 44 STEP a 


: PLO 


C,n! DRAW 


=4.0 


'^■LOT 




DRAW 


e',64: NEXT 


nj FOF n-9 




1 POR 










in*12iCHF« (ir4*"»n 




=";CHP» a 












AT 2 


.isrxurrer 




LET 


=£■! 


LET y 


0! PAUSE L" 


1 FT 


iS=!h 


ev»! 


POKE 


23621il,-(ND 




CHF* 




POKE 


2-S2lil»*x-32 




LET . 




*=''5" 


.(i»="B"'>: 


1 FT 






)*Ii*-"7"): POfE 








9: POKE 23&Z4'.:- 






' 



= "A")*22t(i«.' = ""' ■■!■ 
POKE 2362«,2S5« ■. i t ■ 

)«34[ PLOT OVER 1:: - . , 

AT 21-y,H; OVEP IjCHPS 1 
hE 2362S,22! FOR n=& TO ■ 
USR i»*n,PEEX *2lii6ii5+256< 
T ni POKE 23620, 1 



1 REM t 



: ii?0! 



RINT ' 



n toets"s PAUSE I?! LET 
y=10i BORDER 1: PAPER 1: INK : 
CLS ! LET p=2l! LET q=15; FOR 
e" TO 201 PRINT AT n,RND«l»i". 
. .. .. .": NEXT n: 

T y=0: LET n=RND*22i FOR- n=0 TO 
211 LET x=>!*'RND«2)! PRINT AT n, 
«j INK 4["i LET c=l AND INKey«=' 
B" AND q<29: LET q-q+c: LET a=i 
AND INKEy»="5" IWD q--29! LET q= 
q-dl PRINT AT p,q( INK 6;" 7 ": 
BEEP 0.S»e7,30 AND ATTR (n,^;l-14: 

LET o-l AND ATTR Ifi,x) = 14: LET 

t=t+ei PRINT AT n.^j LET /=! 

-tRND»2H PRINT AT 0,23s"scnrB 
"jt: NEXT ni LET k=i— ll PRINT A" 

1», 10) INK 2t"EINDE" AND k=e: I 
ORE 23610.1: POKE 2361", dt POKE 
23ii.20,15 AND lotil 



L£ 




Illllllll 



HEW 



EM CLUES 



NEDBRLANDSB VERENtGIt 



Seer: R. Uictecl Inden 

3312 AG Dordrecht (079-312362) 

Syatoem GebruilteEa Gcoep Apeldoorn 
Postbus 1061 
7301 BH Apeldoorn 

Discoi/ecy User Club 

2725 CH Zoetecmeei:(079-416360) 



HCC 68000 C 



2851 2L Haaatcecht[0ia21-Z491) 

HCC SINCLAIR GG 
Seer: T.A.P Holenaac 

Poatbua 76 

2260 AB Leidschendamt01570-66a45) 

Sinclair Gebrjikerayroep Gconingen 



3 HG Sakkeveen [05169-10161 
Che Veceniqing 



Af d : CoropuCer'lienat 



Spectrum Gebruikers Groep Hoogei 
Seer: G-Guchelaar 

Neptonus 16 

7904 GE HoogevQon 



.At I 



irdstraat 65 



9902 HK «ppinyei3am(05960-23a901 

Laic Gebcuikeragtoep Ter Aar 
: Peter Bey 

SperuecliQek 35 

2743 GC WaddinKveefH0ia2e-1997S) 

lait Gebruikecaycoep Loouwarden 



9254 EC Hardegarijp (05110-5340) 

lir Gebcuikeca Gcoep AmHtecdam 
Poatbua 51289 
1005 HG Amsterdam (020-SS0126) 



Koldakkec 34 
9407 BH Asaen 




m Groep Sinclair 
J. van der Zee 
Pleladenplantsoen 60 
1973 BH IJrouiden (03550 


10002) 


ir Gebruikera Groep Den 
Ad van Liempt 


16B37) 



Lair Gebruikera Gcoep Aalter 
: Heibroekdceef 71 

9300 Aalter (091-742205) 

icum Gebcuikeragroep Antwecpf 
: Boahovenatraat 123 

2100 Deurne (03-3247294) 

Lair Gebruikera Groep Gent 

: Zwi jnaartaeateenueg 148 

9000 Gent (091-218785) 

irum Gebruikers Groep tier 
: Baron Carolylaan 8 

2500 Lier (03-4803448) 

Lair Groep Limburg 

: Oude Kuringerbaan 65 

3500 Haaselt (011-251628) 

'bcuiftecagroep Limburg 



J. De Plancke 
Aatcidlaan 25 
8320 Bru<jge A! 



fanaf ( 



hardmare 




Data-!Skip 



°p 



ii- 



jtadaplan. 

lintiten lopen, en je bent er. Geen ceus- 
ichtige etalage met glitter en lichtjesi 

Lendelijke raamp jeSf volgQStoawd 



all; 



> dan 



impu- 
roeft 



liarilwaca i 
vetgt gcol 






Lware dllerlei, boeken 
races. Het gfoCe deel da: 
; DATA-SKIP zel£. 



;hend leidt rtij i 
koninkiijk. In i 

U collega'3 -'oi 
1 de hall van zi' 
I zaak. Zijn enCJ 



; doelatelling k 



delijke pci 



legen ; 



gering, en de 

king met wat et uit Engeland aan kw; 
apoelen. Bouendien ondecvand DATASKIP ; 
gauu dat software uitgeven erg beuerke 
lijk ia. Je blijft aan de gang : advei 
tenties apmaken, hoeajea ontwerpen < 



eigen import 



|. DATA-SKIP begor 
ontuikkeling var 
latus 1986 kuam d( 



Videoface digiciaer 

uitgebreide bespceking van dat appacaat 

vanuit Australisi Hong Kong r Uruguay en 
Saoedi-Arabie komen reaktiea en wcagen 
om informatie, Zelfs in het andera zo 
chaavinlat iscrte Good Old England loopt 

grote ploim op de hoed van de producent. 

Nederlands bedrijl ap de Engelae markt 



pataatje zo ieKsela tiandig vlnden. heb- 
ben «e bealoten om in aaraenuactting met 
DATA-SKIP een pcogrammeec-uedstci jd vooc 
die muis te organiaecen. Hear daacovar 
vind je elders in dit nummer. Er zijn 
moQie prijzen te verdienen, dit kunnen 
ue al vectellen 1 DATA-SKIP weekt momen- 
teel aan eigen nederlandse producciss 
rond de AHX-muia. Dit kunnen we alleen 
maac toejuiclien : sc is veel te weinig 
goede nedecldndae software op de raarkt. 

Daarnaaat ataan er nog op stapel : een 
sideway-ROM (prik die op de achterkant 

die ROM 3taan] en een nieuu inbouu- 
systeem in de aarJ van de THOa, maar dan 
voor de Spectrumi E<!c vervanging wan de 
inmiddels ter ziele gegane Opus- Dat 
laatste is nog in Wet pro jekt-atadium, 
maar DATA-SKIP kennende zullen we er nog 




1 duidelljke Eilosofit 



ijn. 






1 prettig voor de klant, 
)k mee dat de eigen repa- 
- aandacht kan baateden 
dan toch tout gelopen 



uit dat Sinclair machines niet bepaald 
de duurate computers lijn, dus dat Je 
ook met randapparatuuc in een redelijke 




Die hele politlek heeft ec ondertussen 
voor geiorgd, dat DATA-SKIP in de Icorte 
tijd van zijn besCaan, toch al een ruime 
klantenkcing heefc opgebouwdi aowel in 
Uederland als in Delgie. 

Het klinkt aia een clich&, maar toch ; 
«ij zijn ervan ouertuigd dat de vciende- 
li jke prijzen plus het vrlendeli jke 
gezicht van DATA-SKIP hebben bijgedragen 

Ton VeralJys blikt overigena met veel 
vetrtcouwen naar de Sinclair-toekomst . 



dealers, hobbyiaten, onderateuning 
VoDC de derde poot zorgen wij alvaat. 



Wie lich met eigen ogen wil overCuigen, 
l(an t^eeht op inaandag wanaC 13.30 tot 
16.00 uur, en tot en met zaterdag tuasen 
10.00 en 16.00 uur, of latec dit jaar op 
de zx Miccofair in Londen, op de eigen 
stand van DATA-SKIP. 



W ---i'~^; 



■el. 01820-20531 



0, 2B01 HC C 



IcassBbbe service 



: de ZX31 en de QL i 






it QL nu:fl. 

Clair QL nu:fl. 

J:Wocd ptTDceasing with 

QL nii:ei, 

KDesk-top computing wi 

claic QL nu:fi, 

i-Abannees deae QL-Boek 



12,50/250 BF 
aing on Che 

12.50/250 BF 
)n the Sin- 

12,50/250 BF 

12,50/250 BF 
:he Sinclaic 
12,50/250 BF 

12,50/250 BF 

in :fl. 10,00 

/200 BF, 



SPECTRUM SPECIALS: 

SS-01 Special 1: TT-S ToolldC voot pro- 
gcammeura incl. Ned.Handleiding . 
De GAMMA-TOOLKIT met 10 extra com- 
-mando' 3 :TRACE, FIND, RENUMBER, HOVE, 

RAH-teat-pcogtamma, SCREEN teKen- 
pcogcamma en TAPE-INVESTIGATOR. 
5 UtiliHes vooc. .£1.27,50/550 BF 
BftSIS-ADonnee: fl. 22, 50/450 BF 

SS-02 Special 2: ASTROLOGIEPROGRAMHA 

voor alechts: £1,15,00/300 BF 

BftSIS-Abonnee: £1.10,00/200 BF 

SS-03 Special 3: Utilities 1: 
COPY-A4,C0Py HS232,MCOP¥ 
Screencopy-proga voor Centronics 
en RE232 en een H-Dtive copy-prog. 
5 tiitlitiea vooc. ., £1 . 15 ,00/300 BP 
BASIS-Abonnee: £1.10,00/200 BP 



ZS-01 QSAVE laadt/aawet tot 16x Hneller 
«oor ZXei 16K-64K. .£1.25,00/500 Bi 
BASIS-Abonnee: £1.20,00/400 Bi 



■02 MCODER I 
BASIS-At 



F BASIC in M/C 
.£1,15,00/300 E 
£1.10,00/200 E 



QL-Ol HACRO-flSSEMBLER van GST systems 
met screen editor van Metacomco. 
uaa £1.275.00 na: f 1 , 155 ,QO/3300BF 
BASIS-ftbonnee: £1 . 14O,OO/28O0BF 



,rt) op gi 
1-1592577- 



Op een gegeven moment metrfc je, dat je 
een computer- Je begcijpt ook de 



speelgoed-dinget je 



.jk al 



■el ( 



)'n dir 



;en gehad, toen ze op de computer 
wegwijs wecden gemaakt. Zo zullen het 

{ eerder minder ) dan de tegenwoordige 
"speelgoed-coropuEec" . En ze waren toen 



Illlllllll veripy 



cen. De gevangenen aijn ondecjebcacht 

bacakken op de Olnnenfilaats van het li 

teel. Bij het kasteel t? oan gebiraii v 

. de gevangenen kjnnen cecceren. Daac c 

tot het ondecaacdae gangetiKtalsal dat 



louden. M-lei 



iDemaklceLiik kunnen verdwalsn. Het Ls u?l 
ecn ideale plek om allerlei nulpmiddelsn 

Links op t\eC schenn staat een vlaggesCok 

Deze qaat oiiilaag ala ]Q gepafet wotJt i>p 
iUeqaai Certain (je bent op Ulegasl 
Cerrein als de vLag cood kleurt] oE <3l.; 

" wocden. Op list laaCaC is jc mocaal ao 

nog een poging cot ontsnappen Ce ondec- 
neroen, Het mannetje op hat scftacra kjn Je 
dan Qok niet meer in bewegini) kcijqen. 
Als je cen tijdje niets doet tecuijl d»i 
vlag gri3en is t gaat het mannetje op het 
achecra veec in het gaceel Lopen en doeC 
pcGcies heCzelfde ala de andece geuange- 
nen. Op deze maniac kun je eenuoudig dooc 
NIETS te doen achtec de dagindeling 

den op uelke tijden je ongemeckt kunt 
uegalulpen om Dp ondecsoek uit te gaan . 

uit. Je waant in een echt kaateel. Die 



r (4aK Spectcum) 



FLUS S 



De Nederlandse editie van heC 
iiitgebreide handboek voat de ZX. 


130 pagina's dlkke liaiidleiding 
voor het in BASIC programme ran 
van de l2liK varsie van de be- 
foamde KX SPECTHUM [*). Beuat 
alia infonnatie die U nodig 


litleg van de keywords en func- 


SindeLljk wear een standaardwer)c 
Dvar eon sinclaic Computer met 
dlle benodigde inforraatie zouel 
over het werken in de 4aK-mode 
ala werken in de laBK-mode. 


Uitgabceide techniache infocma- 

programmaopalag in het compu- 
tergeheugen en alle SYSTEEH- 


ICen onmiabaar handboak voor esn 
ieder, die met een i2BK Spectrum 
werkt en tot op heden de goede 
documentatie over deze voor- 
tce££elijke machine moeat ontbe- 


Dit handboek zal medio febcuaci 
19B7 verachijnen en z^l ver- 
kcijgbaar zijn in de goede boek- 


£1. 3a, 90 / 556 e 


Een iiitgave i/an: 


■[■ERMINAL SOFTWARE PUBLICATIES 



■jiEuuj M I e:lji^ 











VERiZft 


-.E,_ 






I5r;(=*fi-i 


XOS 




o,= 


T«,=-=.0«. 


ve 



definiSren. Die Cekena kun je dan in je 
tekst intypen en Taswocd zorgt ecuooc 
dat de printer de cocrecte eodea kcljgt 



. blad waarop ze aan hat pcinten 
) een bepaald punt in je tekati 



Je kunt ook dc- "It 
blokje) de£iniere 

Door dit tekencje 
een reeks lege cec 

file kwijtkan. 

Het uervelendi 



grafisoiie tekentje 
.VERSE 8" (hel 
gcijpei 



(ord ; 



aEdcukken, 



tekens die Je gedefir 

dii3 weer opnleUH di 

Daaram dachten Miji 
zou zijn, indien je een bepaa! 
graphics vooc een bepaalde teks 
definiSren ook op tape/diak kon beuacen. 
Dan hoef je, indien je een bepaalde 
tekat wilt gaan afdrukken, enkel nog 
voocaf de set graphics die Oij die tekat 
hocen, in het geheugen te laden, en je 
kunt gaan printen. Kakkeli jker kan 

van Tasword 2 moet gebeuten, is niet 
eens zo omvangrijk. Drie extra regeltjes 
BASIC en de zaak is klaar. 



Iserie: basiunrdE.B 



neyel 300 


berei): je. 


.di 


"e 










ziet. Ge«. 


onlijk loop! 


















regal 3 moe 


t dufi alles 


geb 


ur 




He voegen 




1 


us 


qe 
















IV 






aanmaken. 


na 




Ifl 


aimpele m 


niec ; 








301 


NPUT "LOAD / 


SA 


^E 


/ 



gebeuren. Daacoro schrijven we eer 
303, waarop we een CAT opvragen 
dciue, en uer«olgens een bepaa] 



lit de "IF" op die regel, moet di 
;ijn dat, indien we niet "L" 
.ngegeveni de andere optie 
'olgende regal wordt uitgevoecJ ; 



■tMd:«5C0DE val "60 



De mindec gelukkigen 



im van de defir 
jelangrijke tel 



■eft 



? qeli 



caaaette, de SflSIC van Tasunril 2 aao 

aanpassing in de Cekat gemaakti waairi 
ik altijd de keuze heb, zowel bij SJ 
als bij LOADen. om met liet ene oE 



mill basuiDrd E.B 



uaarna het pcogtamma vecdec laopt 
regel 1040 (ec zljn geen cegels tuat 
1005 en 1040) : 

1040 CLS : PRINT "TEKST ";ftS;' G 
ESAVBO:"' 'A;" B)(TES, ";A/VftL "64 
"i" REGELS": IP CAS THEN VERIFY 
""CODE ! GO TO VAL -lllO" 



wijzigingen of cotcectiea moeat doen , en 
dat de microdcive hat vectikt om een 
file te SAVEn onder een naam die al op 



"Qcdt, wolgt regel 1100 n 



_ Ook de Opus diakdcive "sjoemelf 
mee : die accepteact wel dezelfde 
maac wist de file niet echt i 



een blok na elkaac hebben. Dat maakt dat 
een "CAT" je op een gegeven ogenblit 
i/ertelt dat je nog 50 K vrij hebt op da 

tekst op die diskette ullt zetCen, de 
laconielce medadelLng van Opus krijgC ; 
"No room on disk" I Oat gebeurt niet. 
- uanneer je de file eecat uiat. tenzij de 
nieuue tekst meer sectoren op de disk 
bealaat dan de uocige met dezelEde naam. 



1500 IHPUT "WIS FILE 7"!AS: IF A 

S="" THEN RETURN 

1505 ERASE '"M";MD:flS:RETURN 

Een gelijkaacdige aanpaaaing laat de 
keuze bij het inladen van teJcsten. Dit 
gebeurt vanaf cegel 2000, 

2000 CLS : POKE 23658,8: IHPUT " 
DRIVE (D) OF CASSETTE (C) ? "iSS 
! LET CAS=[3S-"C"): IF NOT CAS T 

2010 ItJPUT "NAAM : ";AS 
2030 LET B-PN P[VAL "62216'): IF 
NOT CAS THEN LOAD *"M* jMD; ASCODE 
(A+B),[[FN P(/AL "63a21")tVAL " 
22")'VflL "64"-A): GO TO VAL "10" 
2040 LOAD ASCODE (A+B),((FN PfVA 
L "62221")+VAL "22")«VAL "64"-A) 
: GO TO VAL "lO" 

Regela 1000 en 2000 zofgen ar vooc> fiat, 
je dooc gewoon "ENTER" te dtukken, ala 
antwoocd op de vraag "DRIVE/ CASSETTB^ , 
automatiach voor drive kieat. Oat kan 

cegels de logiache uitdruklting [S$-"C") 
te vervangen door [S5<>"C"). 

Ora ao ueiniq mogelijk extca typwerk te 
kri jqen, door de aanpasaingen, zorgt 
regel 1500 er ooit vnor dat gewoon 
"ENTER" drukken ala antwoord op de vraag 



IE het SAVEn van teksten : 

1000 CLS : POKE 23658,8: INPUT ' 
DRIVE (D) OF CASSETTE (C) ? ":SS 
: LET CAS=lSS'^"i^") 

1001 LET B=FN P(VflL"62216" ) 

1002 IP NOT CAS THEN CAT HD: GO 
SUB 1500 

1003 INPUT "NAAM: "lAJ 

1004 IF NOT CAS THEN SAVE »"H":h 
D;A$CODE B,A 

1005 IF CAS THEN SAVE AJCODE B,; 



I Tasword 2, 



r Taauocd 2, duidelljk ia 
;iexibel dit pcogramma «el 
■de haodachoen nu in jullie 
ttige aanpaaaingen 



Illllllll in/Dub 



[vecvolq van biz. 1^) 



.uiden bepalen 





n het nodige 


matecieel. is 


het geb 












n MIDI-keybofl 








ig maeE daac 








in, Hec keybc 


ird kan alls 


samples 






izelf o£ gem: 








zelf bevai 


. ftlle 










n de Husic Ha 


chine worden 


verbonde 



(ca. £.199.-) kan je dat ook nUc 

BelgiS : Micro-Connection. 

2000 AnEweirpen 
tel. 03/231 01 03 

Nederland : 



L. Willemsteeg 10 de GceeEstcaat 15A 
2801 WC Gouda 5622 GJ Eindhoven 

tel. 01820-20531 tel. 040-455660 



HELP !' Hijn taOA-PlD-chip ■iMt nut up HIE tin tij lolpm bij hit iinpiiiin vin 

•ijn I28K SplCtfUi. Hn gwU lij di op- hit prDgnui H6STERFILE »tior printlr. ^ jqeh, hARGAUS «or II Sp«ctriii. 

lolling ? R.teighiii. I»!i0ia:0-:W73. R,V«rlioe((,Tiuniil)lD(iplBin 31, Dm Hug ir.Jotigtjin, Tili 0!4BD-I8SBi vow IK 



TiltOIS-ZSUU ni le.OO uur 

IK IKKiEtn knitlntirfici vogr di II 
Spictrui. Riictiif iin: J-R BratliHi, 
Bultnf) 4, mm Hiign I«UO5!2O-4SO0: 

IK ZDEKi Ein jatS wrtend boiktiEiuilpi 
griiu voor prive-gibruH, Nie Icin i 
hdpin ? Bin Hiitiii, Hiriti 7,8602 
Sniik. 

IK IKKi TELEI/HORSE progniH vi 
ipictru lit in Eondir convirtlr. 
H.Gnijdir, Dilngilao Til !OS:i 9-2283 

IK ZBEKi contict Ht gibruikin 
prDgniu vcDr ■SIANeGOnSNDERIIIEK-. 



IK ZaEKiEEBBUIKERS v»n di m HUIS oi ir JE HUUR EEVRMSIli Kultifici 1 vw klcl- 
hit ultinti uit te fulen. Schrijt nwri ^p „,„ „j„ ,o(t„ri niir iicroilrirt. 
R. i.t. Bunt,KUkkigit 10, lurtirin. H.diuKin. Till OHOB-Mfll! 



IK IDEKiTEGEN VERGOEDING VAN KSSTENi hit 
bait) Thi Hurking Sptctrui' tmr: D. 

HikfRoKf, Airdinburg. Till 01 177-24 li 



I 17, 



EEiaCKTi EibruikiD vjn dE KSK Spictrui 
dii vitin hoi ji 'Stirglidirt 12BK' op 
len OPUS-DISK kin iitten. 
Til i 078-60096 

HIE km lij hilpin ain di hindtiiding 
on AETRONONER " Koftin Mrdin virgoid. 
A.G.Nirtini. Tili(l7B-17t!37 

IK ZGEK: 1 flicrodrivi + ivt. cirtridgii 
(Nlet ti duurl. 

H.Kiri], Riiniirtpid 12, 3813 KM AHri- 
(oort (033-7561961, 



IK I8EK1 Itoduli ligitili Gihiugin-aicll- 
iDscoop voor Spictmi Ht loftNin. 
Till Stiglit 013-3HB4t ni ISOO uur. 

IK ZDEKikopiiin vin ZI Coiputing cvir di 
'VintunipiikiilitDr', Rob Udii, Hiptiinui- 
■ig 32, S632 CP Eindhovin 

IK ZOEKi Qriginili progriui'i vpor fi 
^ittrui 128K. C.K.Nin, Niitintnit It, 

1441 AS PuriirHd. 

IK ZQEK; Iiiind oi originili laftmri ti 
ruilan. Ik loik 'n goid Nidirlindi iird- 
njkikundig pragrini. Bill 0ST09-I2(f 

IK ZGEK: iin ZI80 lit ivintuili uttbni- 
dingm, J.Jongklnd, A.H.Bliiuiitr. t!, 
MJl KT Ailiiiir. (02977-2SB12I 



K.H.Schiip.IiiluHtr B,::24 HH Kitiijk 

IK ZOEKiANIHATW 1 ivt, rutlin voor THE 
COLT IcoipllirL Riictlii aim 
E.Groot Ziiiftink, K.NiUntitriit i;7, 
741S TC Divintir. 

IK lOEKi Euroilictrgnici LPRIHT III 

Intirfici. 

Till 0SI70-7490 



IK ZOEK: D« taiide diskdnve 
DFUS DiscDViry. Bij yaorkiur 
virsii, iiir DOk di itandiird. 
Til; 010-43(B089 



__ «* TE KDOPiDriglnili 12BK Epictrui Softmri 

''^" O.J. 'Robin Q/t Hood',"6hoitbuitiri' mi 
Til! 07B-60096 

IK BIED AAMi ZI LPRWT 3 Intirfict vow 

IK IflEKi Duidilijki bcichrijving ^m fl, 150,00 oMt. l9S,aa lit kitil. 

uitbfiiding 48K njtr 80K ISpsctruil. Tsl; 051-353723 vnig niir Jin-Riico. 

H.O.NijdM, Ff.Hindriklajn 46, HurKi, 

(021-280436) TE KDDPiPSIDN ORGAKISER IP (I.t00/7200BF 
Cjrtridgiboi lit "6 cirtridgil vOor 



EEN ABONNEMENT IS VOOROEL/GER 

Ik neem nu een abonnemenf op da SINCLAIR GIDS 
en ontvong 8 nummers voor fl. 44.00 



Slraal : _ 
Posicode: - 



Ik heb liei aboniii'meiiisgelil overgemaakt op Giro 5W9074 tnv. Sinclair Clds- 

Baarle-Nassau 

Voor Belgie: fl, 44,00 per [nlernalionaie Poslwisstl aan de Sinclair Gids, 

Poslbus 111. 5110 AC Baarle-Nassau. 



INfOUT 



GRATIS LEZERS5ERVICE 



->^ 



IK ZOEK: 



ZotkL U Lcl; 

Plaais dan ei 
IN/OUT. 



IKBIEDAAN: 



^ 
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Alleen NlET-commerciele adverteniie: 
Adi'erreniies voor gekopieerde so/tyt 
geweigerd. 



riekend warden 



TE COOP! Spettruit, SSSfll toetisnlKird, 

IE MOPiOriglneU BpBttrui uiwttKi lichtpen, DKTronics Pir.InterJjce, 

Kimg-Fu, Ti(ip»r, «int«rs(iorts * 3 cis. tlitrospeecti sprjakgenerator. 

HiitirtroniciiLuk flUtlhof, Kirkitr.Il, Ttl; 05«M9»l/i;7'. 

ItiiiniJtrU. Teli0l3-it2114 

-- TE tW: Htgini overcoipletti Seikoshi 

re i:DOP;DriqineIi ciitittes voor 4eK SPIOHO Printir typi QL (tiiiuil. 

Sptctrui u.i: Hugiy, SptUliounil. Prijil (I. iSO,l}D. Tdi 030-71(;7: 

Ault Bikktr, DeuriE 4, ?1S7 IB Beunt 

TE MOP! Siikoiha EPSO-S printtr zgin-t 

TE KOOPi DL InifUH in daDf)« GrDther HR5 pragniM 'Dairiprint' fn 3 rolltti 

tVDtding >ptpliri Fl. 7!D,40. papiir voor fl, 12S,00. 

Tell M7S0-U113 Til!070-i7S;7e na 1800 uur. 



TE KDDP; AIphacQi 3: Printer inch 2 ml 
pifiier. Direct aaniluitbiir op Sptctrui 
{1.100,00 ai hoogste bod. 
Te|! 0Il!»-»173e 

TE KQ{IP:CA5I0 iini keyboird PT-30. 
IS rities, 5 iriitruitnten, auto- en oni- 
lieyplay, *0G gi^tugenitippen! (1. 200,00 
Tell 0:7OO-34:?0 ni ISOOuur. 

TE KQOPi U Spectrin 4eK « Seitotha 6PS0 
printr, Oiv, bpikin en wit>ire Haaron- 
dtr Matterfili id. Totail U. 3S0,0t. 
Tel: OlSeO-30749 







-- 


Port P«y4 


Sinclair 

Posibus 1 1 1 

'ill 1 AC Baarle-Nassau 








Port Selaaid 
Port Paye 


sincli 

Posibus 1 
5111 AC 


glcU 

1 

Baarle-Nassau 



TE KOOP: SpB:trui lii: * I :a5EsttBs • 

boekin • vueding: <L ?OC,(IO. 

Jin Hellingi, Hombir; 10, ;114 

C»telr(. 



Tel! C70-47S921 



lEKODf 


:i Sptctfui 4 Inter 


Ki I + 


TE KDDP; ZI Spectrui 48): Ht 


kibels, 




v( > jovitickintirfio 


t joycjri 


voeding, BoHmre tn S boiken. 




* hchtpw t son«if» vDor: (1 


550,00. 


VrH5pri]5 (1. 125,00, Telr OM' 


-:576 


lei! or 


B-rn?'? IHjni). 




Kd 1800 uur, (SustBrsnl 












TE KODP 


B-Oits l/O-ljjrt 


voor :« 


TEK00P;Seikasfi»GP50S Printtr, 


ill HI) 


Spectrw 


Ook geschiU lU j 


^stictin- 


pjpurtfinspijrt-iOtor defect. 




terficf 


Tell Ot750-:i01B 




T«U 01IS4-iet77 






XMpstcn Joystici Interfi 
Pro;r)H)erD)r« jD/sti:! 
nulCiface One (bickup Hi 
fl. 75,00. Eoikini Herli 
drivf (I. i:,!0. Spii 
Bntik lEngelih n. i:,!0. 
J.J. Leuni, Vignolistt 
Tell ni 17.00 uur: OK 



ibirqdciiis fl.40 
H. :5,00 
erf ice 41.40 



DATA-SKIP 
UW SINCLAIR-GIDS 




■TiifflsnirmfiT^ 


Mulliface One 

MLllitaceOne t2B 

Videolace Digiusef 


199!- 
249- 

'199!- 
199.- 

--S,- 
-39, 
.49, 

595,- 


VTX-50aa modem 


3 l/2"dlakette 


Saga Elite, loelsenhord 

Saga TNO-plua 

Opus Discovery ,. 



TEL 01820-20581 

Data-Skip, 

L.Willemsteeg 10 

2801 WC Gouda 



